'word中插入图片 调整大小

Sub InsertPictureAndAdj()
Dim FileName As String
Selection.TypeParagraph
FileName = "D:\My Documents\My Pictures\COAST-CORAL-TREEwe_2322560k.jpg"
Selection.InlineShapes.AddPicture FileName:=FileName, LinkToFile:=False, SaveWithDocument:=True
ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).Width = 50
ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).Height = 50
End Sub

--------------------------------------

'excel中插入图片 调整大小

On Error Resume Next
    ActiveSheet.Pictures.Insert(Application.ThisWorkbook.Path & "\图形文件\大样图\" + i + ".bmp").Select
    Selection.ShapeRange.IncrementLeft -60
    Selection.ShapeRange.IncrementTop 20
    Selection.ShapeRange.ScaleWidth 1#, msoFalse, msoScaleFromTopLeft