在Sub宏名稱()和End Sub之間編寫以下代碼:(然後單擊Run)
圖片的數量
“出錯時繼續下壹步”忽略錯誤。
對於n = 1到活動文檔。嵌入式形狀。'計數'內嵌形狀類型圖片。
Activedocument內嵌形狀。height = 99 '將圖片高度設置為99px。
活動文檔。嵌入式形狀(n)。width = 71 '將畫面寬度設置為71px。
下壹個n
對於n = 1到活動文檔。形狀。計數形狀類型圖片。
活動文檔。形狀(n)。Height = 99 '將圖片高度設置為99px。
Activedocument.shapes。width = 71 '將畫面寬度設置為71px。
下壹個n