【Excel VBA】フローチャートの図形をワンクリックで複製するマクロボタンの作成方法(後編)

2026年2月7日のブログ記事の「フローチャートの図形をワンクリックで複製するマクロボタンの作成方法(前編)」では、フローチャートの図形を選択してからボタンをクリックして図形の複製を行っていました。

今回はフローチャートの図形を自動で選択して、シート上の全ての図形を複製するマクロボタンを作成したいと思います。

標準モジュールに図形をコピーするマクロを作成

VBA編集画面(Visual Basic Editor)を立ち上げて「挿入」タブ →「標準モジュール」で標準モジュールを作成し、次のコードをコピーして貼り付けます。

Sub 全ての図形を180ピクセル右に複製する()

Dim flow As Shape
        
For Each flow In ActiveSheet.Shapes             'シート上の全ての図形に対して処理を繰り返します。
                
   If flow.Type <> msoFormControl And flow.Type <> msoOLEControlObject Then '図形のタイプがフォームコントロール、ActiveXコントロールの場合は次の処理を行いません。
            
      With flow.Duplicate                       '図形を複製(コピー)してこれ以降の設定を行います。
      
         .Top = flow.Top                        '複製元の図形と高さを揃えます。
         .IncrementLeft (180 * 0.7584)          '複製して新しくできた図形をセルの幅10個分右側にずらします。
            
      End With
            
   End If
   
Next

End Sub