Excel VBAで図形（Shape）を操作する際、皆さんはどのように書式設定を行っていますか？「一つずつプロパティを記述して設定する」という方法は、図形の数が増えれば増えるほど、コードの可読性を下げ、メンテナンスを困難にします。
実は、VBAには非常に強力で、かつ直感的に使える「書式のコピー＆ペースト機能」が備わっています。それが、`Shape`オブジェクトの`PickUp`メソッドと`Apply`メソッドです。今回は、この「図形界のスポイト機能」とも呼べるメソッドの使い方と、実務で役立つ活用術を徹底解説します。
なぜPickUp/Applyメソッドを使うべきなのか
通常、図形の枠線、塗りつぶし、影、回転角度などを個別に設定しようとすると、以下のようなコードになります。
With ActiveSheet.Shapes(“Rectangle 1”)
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.Weight = 2
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Shadow.Type = msoShadow25
End With
これだけで5行以上のコードが必要です。もし同じ書式を別の10個の図形に適用したい場合、このコードを繰り返すか、ループ処理を書く必要があります。しかし、`PickUp`と`Apply`を使えば、たったの2行で完了します。
「書式の情報を一時的にメモリへ取り込み（PickUp）、それを別のオブジェクトに流し込む（Apply）」というこの仕組みは、ExcelのGUI操作における「書式のコピー」ボタンと全く同じ挙動をコードで行うものです。
PickUpメソッド：書式の「スポイト」
`PickUp`メソッドは、指定したShapeの書式設定をクリップボードの内部的なバッファにコピーする役割を持ちます。
**構文:**
`Shapeオブジェクト.PickUp`
使い方は非常にシンプルです。書式をコピーしたい図形を特定し、そのメソッドを呼び出すだけです。
‘ “SourceShape” という名前の図形の書式をコピーする
ActiveSheet.Shapes(“SourceShape”).PickUp
この一行を実行した瞬間、VBAはその図形が持つ「塗りつぶし」「枠線」「影」「テキストの配置」などの情報を記憶します。
Applyメソッド：書式の「貼り付け」
次に、コピーした書式を別の図形に適用するのが`Apply`メソッドです。
**構文:**
`Shapeオブジェクト.Apply`
先ほど`PickUp`で記憶した内容が、`Apply`を実行した図形に対して一括で上書きされます。
‘ “TargetShape” に、先ほどコピーした書式を適用する
ActiveSheet.Shapes(“TargetShape”).Apply
これだけで、`TargetShape`は`SourceShape`と全く同じ見た目（サイズや位置はそのまま）に生まれ変わります。
実務での活用例：大量の図形を一括変換する
実務では、1つずつ処理するよりも、ループ処理と組み合わせて「特定の条件を満たす図形を一括で装飾する」という使い方が最も効果的です。
例えば、「シート内にあるすべての長方形を、特定の『基準となる図形』と同じデザインに統一する」というマクロを作成してみましょう。
Sub ApplyFormatToAllRectangles()
Dim shp As Shape
Dim sourceShp As Shape
‘ 基準となる図形（あらかじめ手動で整えておく）
Set sourceShp = ActiveSheet.Shapes(“TemplateShape”)
‘ 書式をコピー
sourceShp.PickUp
‘ 全ての図形をループして、長方形であれば書式を適用
For Each shp In ActiveSheet.Shapes
If shp.Type = msoAutoShape Then
If shp.AutoShapeType = msoShapeRectangle Then
shp.Apply
End If
End If
Next shp
MsgBox “全ての長方形の書式を統一しました。”
End Sub
このコードの素晴らしい点は、`sourceShp`のデザインを少し変更したい場合、コードを書き換える必要がないことです。シート上の「TemplateShape」をマウスで手動修正するだけで、次回マクロを実行した際には新しいデザインが適用されます。非エンジニアの方でもメンテナンスが可能な、非常に柔軟な仕組みが作れます。
注意点と限界を知る
非常に強力なメソッドですが、いくつか注意すべき点があります。
1. **「位置」や「サイズ」はコピーされない**
`PickUp`と`Apply`はあくまで「書式（見た目）」をコピーするものです。位置（Left, Top）やサイズ（Width, Height）は維持されます。これは多くの場合メリットですが、サイズまで揃えたい場合は別途プロパティを指定する必要があります。
2. **グループ化された図形への挙動**
グループ化された図形に対して`PickUp`を行うと、グループ全体の書式情報がコピーされます。しかし、グループ内の特定の図形だけに`Apply`しようとすると、予期せぬ挙動を示すことがあります。基本的には単一のShapeオブジェクトに対して使用することをお勧めします。
3. **テキストの内容はコピーされない**
図形の中に書かれた文字やフォント設定の一部は、`Apply`によって上書きされる場合とされない場合があります。特にテキストボックスの書式を厳密に揃えたい場合は、`TextFrame2`プロパティなどを併用する必要があるかもしれません。
ベテラン講師からのアドバイス：保守性を高めるために
私が現場でよく推奨しているのは、**「設定用専用シート」を作成し、そこにデザインのテンプレートとなる図形を置いておく手法**です。
マクロのコード内にRGB値や線の太さをハードコーディングしてしまうと、後からデザイン変更があった際にコードを修正しなければなりません。しかし、テンプレートシートを用意し、そこに「標準」「警告」「重要」といった名前の図形を置いておけば、`PickUp`の対象をその図形にするだけで、コードは一切変更せずにデザイン変更に対応できます。
これは「データとロジックの分離」というプログラミングの鉄則にも通じる考え方です。VBAを単なる自動化ツールとして使うのではなく、メンテナンス性の高いシステムとして構築するために、ぜひこの手法を取り入れてみてください。
まとめ
`PickUp`と`Apply`メソッドは、Excel VBAにおける「図形操作の隠れた名手」です。
* **PickUp**で書式を記憶。
* **Apply**で書式を反映。
このシンプルな2つのメソッドを使いこなすだけで、図形を多用するダッシュボードや報告書作成の自動化レベルが一段階上がります。ぜひ、次のプロジェクトで「スポイト機能」を活用し、スマートで美しいコードを書いてみてください。
皆さんのVBAライフが、より効率的で創造的なものになることを願っています。それでは、また次回の講義でお会いしましょう。
