【VBAリファレンス】チューリップの美学をコードで描く：Excel VBAによる動的オブジェクト配置の基礎

ExcelVBA

2026.09.04

概要：VBAで「デジタル・フラワーアレンジメント」を構築する

Excel VBAといえば、通常はデータ集計やレポート自動化という「実務的」な用途を連想される方が多いでしょう。しかし、VBAの真の力は、その柔軟なオブジェクト操作能力にあります。本稿では、連載「第6回チューリップのアレンジ 1/3」として、Excelのワークシート上に図形（Shape）を配置し、数学的なアルゴリズムを用いて「チューリップの花束」を動的に生成するプログラミング手法を解説します。

単なるグラフ描画とは異なり、オブジェクトを一つずつ制御することで、デザイン性の高いGUIやダッシュボードの基盤となる描画ロジックを習得します。今回は、その第一段階として、チューリップの「花びら」に見立てた図形を、幾何学的な規則性に基づいてシート上に自動配置するテクニックに焦点を当てます。

詳細解説：座標とオブジェクトの制御

Excelのワークシートは、セルというグリッドで構成されていますが、Shapeオブジェクトはピクセル単位で管理されます。チューリップのような曲線を表現するには、三角関数（Sin, Cos）を用いた座標計算が不可欠です。

まず、基点となる座標（X, Y）を決め、そこから放射状に花びらを配置するロジックを構築します。個々の図形には「名前（Name）」を付与し、コレクションとして管理することで、後から一括で色を変更したり、アニメーションのように移動させたりすることが可能になります。

今回の実装では、以下のステップで進めます。
1. 既存の描画エリアを初期化（古い図形を削除）する。
2. 配置したいチューリップの数を定義する。
3. ループ処理を用いて、円周上に図形を生成する。
4. 生成した各図形に個別のプロパティ（塗りつぶし色、枠線）を適用する。

サンプルコード：チューリップの配置エンジン

以下のコードは、アクティブシート上に指定した数の楕円をチューリップの花びらに見立てて配置するプロトタイプです。


Sub ArrangeTulips_Phase1()
    ' 描画設定
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 既存の図形をクリア
    Dim shp As Shape
    For Each shp In ws.Shapes
        If InStr(shp.Name, "Tulip") > 0 Then shp.Delete
    Next shp
    
    ' パラメータ設定
    Dim centerX As Double, centerY As Double
    Dim radius As Double, numTulips As Integer
    Dim i As Integer, angle As Double
    
    centerX = 300
    centerY = 300
    radius = 150
    numTulips = 12
    
    ' チューリップの配置ループ
    For i = 1 To numTulips
        angle = (2 * Application.Pi() / numTulips) * (i - 1)
        
        Dim x As Double, y As Double
        x = centerX + radius * Cos(angle)
        y = centerY + radius * Sin(angle)
        
        ' 図形の作成
        Set shp = ws.Shapes.AddShape(msoShapeOval, x, y, 40, 60)
        shp.Name = "Tulip_" & i
        
        ' デザインの適用
        With shp
            .Fill.ForeColor.RGB = RGB(255, 100, 150) ' チューリップらしいピンク
            .Line.Weight = 1.5
            .Line.ForeColor.RGB = RGB(150, 50, 80)
            .Rotation = (360 / numTulips) * (i - 1)
        End With
    Next i
    
    MsgBox "チューリップのアレンジが完了しました。"
End Sub

実務アドバイス：コードの保守性と拡張性

このコードを実務に応用する場合、単に図形を置くだけでは不十分です。以下の観点を意識することで、プロフェッショナルなコードへと昇華させることができます。

1. 定数の管理: 中心座標や半径、色情報を「定数（Const）」や「設定用シート」に切り出しましょう。これにより、コードを書き換えずにデザインの微調整が可能になります。
2. エラーハンドリング: シートが保護されている場合や、図形が配置できない領域を操作しようとした際のエラーを考慮し、On Error Resume Next等を適切に活用した堅牢な構造にしてください。
3. クラスモジュールの活用: 今回は標準モジュールで記述しましたが、本格的なアレンジメントツールにするならば、「Tulipクラス」を作成し、個々の花に「開花状態」や「色」といったプロパティを持たせるべきです。

また、Excelはピクセル単位のズレが生じやすいため、高精度な描画が必要な場合は「PointsToScreenPixels」メソッドなどを併用し、環境依存を極力排除する設計が求められます。

まとめ：次回の展望

本稿では、第1段階として「規則的な配置と図形の生成」について解説しました。チューリップの美しさは、その整然とした並びの中に宿る「ゆらぎ」にあります。

次回、第2段階（2/3）では、今回配置した図形に対して「ランダムな揺らぎ」を加え、より自然な花束の表情を作るための乱数制御アルゴリズムについて解説します。そして最終回（3/3）では、ユーザーの操作に応じて花びらが開閉するインタラクティブなアニメーション実装へと進みます。

VBAは、単なる事務処理の道具ではありません。あなたのアイデア次第で、Excelはキャンバスへと変貌します。まずは上記のコードをコピーし、ご自身のExcelでチューリップが咲く様子を確認してみてください。その時、VBAの「表現力」の可能性を肌で感じていただけるはずです。

論理と感性が交差する場所、それがExcelプログラミングの真髄です。次回の解説でお会いしましょう。