我現在需要把整個檔案的所有圖片，都設定成各自原始尺寸的125%。VBA能做得到么？
uj5u.com熱心網友回復：
在Word中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。提醒：Word查找下一幅圖片的功能在滾動條右下角。
uj5u.com熱心網友回復：
如果錄制就能解決的問題，我也不會來這兒問了。uj5u.com熱心網友回復：
僅供參考：Application.Browser.Target = wdBrowseGraphic
Application.Browser.Next
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 1262.85
Selection.InlineShapes(1).Width = 1584#
uj5u.com熱心網友回復：
這個不行。我要的是把所有圖片的尺寸設定成各自原始尺寸的1.25倍，而不是把所有圖片變成一個固定尺寸。uj5u.com熱心網友回復：
算了，我修改問題了。改為：如下陳述句為何會被提示“屬性的無效使用”Selection.InlineShapes(1).ScaleHeight Factor:=100, RelativeToOriginalSize:=True
uj5u.com熱心網友回復：
Factor:=100 表示比例為 10000%，太大了吧。比例 100% 應該是 Factor:=1.0
uj5u.com熱心網友回復：
還有，看幫助里 InlineShape.ScaleHeight 是屬性，ShapeRange.ScaleHeight 才是方法。uj5u.com熱心網友回復：
網上找到 ，已經測驗了Sub Test()
Dim myShape As Variant
Application.ScreenUpdating = False
With ActiveDocument
For Each myShape In .Shapes
With myShape
.ScaleHeight 0.5, True
.ScaleWidth 0.5, True
End With
Next
For Each myShape In .InlineShapes
myShape.Select
Set myShape = .InlineShapes(1).ConvertToShape
With myShape
.ScaleHeight 1.5, True, msoScaleFromMiddle
.ScaleWidth 1.5, True, msoScaleFromMiddle
End With
Next
End With
Application.ScreenUpdating = True
End Sub
uj5u.com熱心網友回復：
樓上已經解決。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/63970.html
標籤：VBA
上一篇：UFT中wpftable的ActivateCell無法識別
下一篇：求高手，以下表格如何求和！！