여러 셰이프에 텍스트를 삽입하는 Excel 매크로

이것은

동작 이미지

도형을 선택한 상태에서 매크로를 실행합니다.

흐르는 문자열을 셀 범위로 지정합니다.

이렇게 됩니다.

코드

Sub 図形に文字列を流し込む()
    On Error Resume Next
    Dim shp As ShapeRange, rng As Range
    With ActiveWindow
        Set shp = .Selection.ShapeRange
        If shp Is Nothing Then If MsgBox("図形を選択した状態で実行してください") = vbOK Then Exit Sub
        Set rng = Application.InputBox("流し込む文字列を指定", "セル範囲選択", .RangeSelection.Address, , , , , 8)
        If rng Is Nothing Then Exit Sub
    End With
    Dim c As Range, i
    For Each c In rng
        i = i + 1
        If i > shp.Count Then Exit Sub
        shp(i).TextFrame.Characters.Text = c.Value
    Next
End Sub