VBA Excel границы вокруг картинки

Question

Доброе утро,

Точность моего вопроса со вчерашнего дня: Граница VBA Excel вокруг указанной картинки

Я бы хотел автоматизировать c границы для большинства изображения в моем документе Excel. Я начал записывать макрос, который выглядит следующим образом:

  Sub Picbodred()
  '
  ' Picbodred Macro
  '

  '
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
     With Selection.ShapeRange.Line
       .Visible = msoTrue
       .ForeColor.RGB = RGB(0, 0, 0)
       .Transparency = 0
   End With
 End Sub

Но он охватывает только 1 изображение, и, как худшее, этому изображению присвоен идентификатор, который не будет таким же. Кроме того, я хотел бы сохранить некоторые изображения без границ, как показано ниже:

Как я могу это сделать?

Answer 1

На самом деле, дай мне просто написать это как ответ, хихи.

Как насчет того, чтобы вы назвали все изображения, границы которых вы хотите, примерно так: SomeName_Border, а затем запустите этот макрос:

Sub test()

For i = 1 To ThisWorkbook.Sheets("sheetname").Shapes.Count

    If ThisWorkbook.Sheets("sheetname").Shapes(i).Name Like "*Border" Then

        With ThisWorkbook.Sheets("Sheetname").Shapes(i).Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(0, 0, 0)
            .Transparency = 0
        End With
    End If

Next

End Sub

, просто измените что-нибудь из макроса и сделайте запись, записанную с ним. Если вы хотите более толстые линии или что-то позднее, я имею в виду.