WORD 批量處理 圖片 大小的 宏陳述句為
Sub setpicsize1() '設定圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes型別圖片
ActiveDocument.InlineShapes(n).Height = ActiveDocument.InlineShapes(n).Height * 0.5 '設定圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = ActiveDocument.InlineShapes(n).Width * 0.5 '設定圖片寬度 300px
Next n
End Sub
在DELPHI 里寫為
For n := 1 To WordApp.ActiveDocument.InlineShapes.Count do
begin
WordApp.ActiveDocument.InlineShapes(n).Height := 100; //設定圖片高度為 400px
WordApp.ActiveDocument.InlineShapes(n).Width :=100; //設定圖片寬度 300px
end
為什么會在第三行報錯 報InlineShapes不是方法?應該怎么改呢?
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/94493.html
標籤：VCL組件開發及應用
上一篇：大神進來，求幫忙給個解決方案