1.將所有inlineshapes轉變為shapes型別; for each ishapes in selection.inlineshapes ishapes.converttoinlineshape next ishapes
2.將所有轉化的shapes型別放大一定倍數然後還原為inlineshapes型別: selection.shaperange.shapewidth 3,false selection.shaperange.shapeheight 3,false for each n in selection.shaperanges n.converttoinlineshape next n 上式中的兩個三代表將長和寬分別擴大三倍。其他的性質可以自己探索~~最後選中圖形執行宏就行了!
利用word中的宏可以解決這個問題。 開啟VB編輯器,將這個過程分為兩個宏來處理:
1.將所有inlineshapes轉變為shapes型別; for each ishapes in selection.inlineshapes ishapes.converttoinlineshape next ishapes
2.將所有轉化的shapes型別放大一定倍數然後還原為inlineshapes型別: selection.shaperange.shapewidth 3,false selection.shaperange.shapeheight 3,false for each n in selection.shaperanges n.converttoinlineshape next n 上式中的兩個三代表將長和寬分別擴大三倍。其他的性質可以自己探索~~最後選中圖形執行宏就行了!