创建宏用于在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