Paste the selected excel range in outlook as bitmap

[Supriya]

Hi all,

Pl guide for VBA code pasting the selected excel range in outlook body as bitmap image.

Regards,
Supriya

 

[SirJB7]

Hi, Supriya!
Why not google it instead of chandoo it?
http://social.msdn.microsoft.com/Fo...nge-from-excel-and-paste-as-bitmap-in-outlook
Regards!

 

[Supriya]

Hi SirJB7,

I Already tried that code but not getting how to execute that code coz in that coding they are using powerpoint application.

can u pl help to understand the below code from provided link

Sub copyRangeAsBitmapToClipboard()
Dim appPPT As Object
Set appPPT = CreateObject("PowerPoint.Application")
Dim rng As Range
Set rng = Selection
rng.Copy 'copy range to clipboard
appPPT.Presentations.Add True
appPPT.Visible = True
appPPT.ActivePresentation.Slides.Add 1, 12 '12=ppLayoutBlank
'appPPT.ActivePresentation.Slides(0).Select
appPPT.ActiveWindow.View.PasteSpecial 1 '1=ppPasteBitmap
appPPT.ActiveWindow.Selection.SlideRange.Shapes( _
appPPT.ActiveWindow.Selection.SlideRange.Shapes.Count).Copy
appPPT.ActivePresentation.Saved = True
appPPT.ActivePresentation.Close
appPPT.Quit
Set appPPT = Nothing
End Sub


Supriya

 

[SirJB7]

Hi, Supriya!
Never neither did nor tried to do that, just googled and found that link from Microsoft. As it says there...
"There is a way to do it with Office only as PowerPoint can do it. ", so I'm afraid you aren't lucky.
Regards!