跨區問個問題，如何在 Word 中撰寫每次新增一張圖片就會自動縮小 60% 的 VBA呢?
因為有很多圖片要插入，每次插入都要固定縮小百分之六十。

請各位幫忙，謝謝。

贊助商連結

問題已經自己解決囉，謝謝各位。

Sub 插入圖片縮放70()
Dialogs(wdDialogInsertPicture).Show
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
myh = Selection.InlineShapes(1).Height
myw = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = myh * 0.7
Selection.InlineShapes(1).Width = myw * 0.7

End Sub

*********************************************
問題已經解決，唯不知是否有更妙的方法呢?

看來已經很優了呀~ (我試了半天也試不出來.. -_-)
頂多把這四行再簡化一下:
myh = Selection.InlineShapes(1).Height
myw = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = myh * 0.7
Selection.InlineShapes(1).Width = myw * 0.7
變成 >>
With Selection.InlineShapes(1)
.Height = .Height * 0.7
.Width = .Width * 0.7
End With