Thread: [Solved] Macro to format picture
View Single Post
 
Old 10-12-2018, 05:30 AM
aysherryan aysherryan is offline Windows 7 64bit Office 2010 64bit
Novice
  
Join Date: Aug 2018
Location: Singapore
Posts: 5
aysherryan is on a distinguished road
Default Try the following
Dim shp As word.Shape
'' Works on the currently selected Shape
Set shp = Selection.ShapeRange(1)
'' If you know which Shape, by index or by Name, then
' Set shp = ActiveDocument.Shapes(indexOrName)
'' If the object is currently an InlineShape it must first
'' be converted to a Shape
' Set shp = InlineShapeObject.ConvertToShape
shp.WrapFormat.Type = wdWrapFront
Reply With Quote