Создайте макрос для перерисовки размера выбранного изображения в электронной таблице на 50% и нарисовав линию 0,25 пт вокруг него.

Question

Я пишу отчет, подробно описывающий последовательность множества графиков в Excel.Мне нужно уменьшить размер изображения на 50% и нарисовать вокруг него линию с весом 0,25 пт.

Я попытался записать макрос, но он не отображается.Я прочитал, что шаги форматирования изображения не записываются и игнорируются.

Я использую 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