nguyen_tri
New Member
- Joined
- Oct 17, 2017
- Messages
- 9
I am trying to paste special and manually format the object to a certain scale. However, the scale size always changes. Here is my code:
Please help me.
Code:
With Selection.Tables(1).Range.Cells(2).Range .PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
With .ShapeRange(1)
.LockAspectRatio = msoFalse
.ScaleWidth 1.03, msoTrue
.ScaleHeight 0.95, msoTrue
.LockAspectRatio = msoTrue
.ConvertToInlineShape
End With