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

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

0 голосов
/ 16 февраля 2012

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

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

Я использую Excel 2007

1 Ответ

2 голосов
/ 16 февраля 2012 
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
...