創建宏用於在spreadhseet上重新使用所選圖像的大小50％並在其周圍繪製0.25pt線條

Question

我正在撰寫一份報告，詳細說明Excel中很多圖形的順序。我需要將圖像的大小縮小50％，並在其周圍繪製一條重量爲0.25pt的線。

我試圖記錄一個宏，但是這是空白。我已經閱讀過圖片格式化步驟沒有被記錄並被忽略。

進出口使用Excel 2007中

Answer 1

Sub EditShapes() 
'This Sub Edit all Shapes in all Sheets 

Dim sht As Worksheet 
Dim shp As Shape 

For Each sht In ActiveWorkbook.Sheets 
     For Each shp In sht.Shapes 
      shp.Width = shp.Width/2 
      shp.Height = shp.Height/2 
      shp.Line.Weight = 0.25 
     Next shp 
Next sht 

End Sub 

要選擇的形狀

Sub EditSelectShape() 
Dim shp As ShapeRange 

Set shp = Selection.ShapeRange 

shp.Width = shp.Width/2 
shp.Height = shp.Height/2 
shp.Line.Weight = 0.25 

End Sub