Modify MSword VBA code to Excel VBA code

[aayaanmayank]

Hi

can someone suggest what are the changes need to make so below code can work in excel/outlook via html or so. i have found two codes from Microsoft docs.

Sub PictureFormat()

Set myDocument = ActiveDocument
With WrapFormat
Selection.ShapeRange.WrapFormat.Type = wdWrapTopandbottom
End With

End Sub

Sub PictureFormat()
If Selection.ShapeRange.Count = 0 Then
If Selection.InlineShapes.Count = 1 Then
Selection.InlineShapes(1).ConvertToShape
Else
MsgBox "Select a picture first.", , "Oops!"
Exit Sub
End If
End If

With Selection.ShapeRange(1)
.Top = CentimetersToPoints(0.5)
.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
.Left = CentimetersToPoints(3)
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
With .WrapFormat
.Type = wdWrapTopBottom
.DistanceTop = CentimetersToPoints(0.2)
.DistanceBottom = CentimetersToPoints(0.2)
End With
End With
End Sub

 

[aayaanmayank]

Can someone please help on this.

 

[RoryA]

Your question doesn't really make any sense, in my opinion. Excel and Outlook are very different, and what you have is code for Word, so what is it you actually want to achieve?

 

[aayaanmayank]

Your question doesn't really make any sense, in my opinion. Excel and Outlook are very different, and what you have is code for Word, so what is it you actually want to achieve?

The way WRAP TOPANDBOTTAM is working in word. i am looking same for excel which embeds image is outlook via HTML. I hope now it make sense.

 

[aayaanmayank]

I have done enough search found this listed as Problem but not found any solution related to this.

 

[aayaanmayank]

Your question doesn't really make any sense, in my opinion. Excel and Outlook are very different, and what you have is code for Word, so what is it you actually want to achieve?

It has been more then 2 years and this Forum never disappointed me but it feels like this time i am gonna fail.

 

[RoryA]

That code has nothing at all to do with embedding and formatting an image in Outlook from Excel, so it's not really of any use. I suggest you start again with a clear description of exactly what it is you need.

Also, please do not bump your thread more than once a day. It actually reduces your chances of getting help.