【エクセルVBA】立方体図形を一発作成！長さ＆角度指定するだけ！

この記事では、VBAを使って以下の画像のように立方体図形を一発作成する方法をご紹介していきます。

基本的には上の画像に示しているX,Y,Zの長さと角度θを指定するだけでOKです。

VBAの実行環境構築
立方体を作成するVBAコード
サンプルコードの内容解説
サンプルコードの実行結果
おわりに

VBAの実行環境構築

先ほど紹介した立方体はVBAを使って作成していきます。

VBAを使ったことがない方は、まずは以下の記事を参考にVBAの実行環境を構築しましょう。

エクセルマクロ（VBA)の始め方！初心者向けに画像を使って詳細解説

環境構築ができたら以降で紹介するコードを張り付けて実行するだけです！

立方体を作成するVBAコード

それでは早速ですが、以下が立方体を作成するサンプルコードです。

Sub make_cube()
    Dim data_range(8, 3) As Variant
    Dim i As Integer
    Dim X As Single, Y As Single, Z As Single
    Dim theta As Single, rad As Single, margin As Single
    
    '立方体の大きさ、配置指定
    X = 100
    Y = 200
    Z = 300
    theta = 30
    margin = 50
    rad = WorksheetFunction.Radians(theta)
    
    '描写用データの構築
    For i = 0 To 2
        data_range(i, 0) = 0
        data_range(i, 1) = Y * Sin(rad)
        data_range(i + 3, 0) = X
        data_range(i + 3, 1) = Z + Y * Sin(rad)
        data_range(i + 6, 0) = X + Y * Cos(rad)
        data_range(i + 6, 1) = 0
    Next
    
    For i = 0 To 2
        data_range(i * 3, 2) = Abs(data_range(i * 3, 0) - X)
        data_range(i * 3, 3) = data_range(i * 3, 1)
        data_range(i * 3 + 1, 2) = data_range(i * 3 + 1, 0)
        data_range(i * 3 + 1, 3) = data_range(i * 3 + 1, 1) + (-1) ^ (i + 2) * Z
        If i <> 2 Then
            data_range(i * 3 + 2, 2) = data_range(i * 3 + 2, 0) + Y * Cos(rad)
            data_range(i * 3 + 2, 3) = data_range(i * 3 + 2, 1) - Y * Sin(rad)
        Else
            data_range(i * 3 + 2, 2) = data_range(i * 3 + 2, 0) - Y * Cos(rad)
            data_range(i * 3 + 2, 3) = data_range(i * 3 + 2, 1) + Y * Sin(rad)
        End If
    Next
    '立方体描写開始
    For i = 0 To 8
        'ActiveSheet.Shapes.AddConnector(msoConnectorStraight, X1, Y1, X2, Y2).Select
        ActiveSheet.Shapes.AddConnector(msoConnectorStraight, _
        data_range(i, 0) + margin, data_range(i, 1) + margin, data_range(i, 2) + margin, data_range(i, 3) + margin).Select
        Selection.ShapeRange.ShapeStyle = msoLineStylePreset1
        With Selection.ShapeRange.Line
            .Visible = msoTrue
            .Weight = 3
        End With
    Next
End Sub

基本的には７～１０行目のX,Y,Z,thetaをあなたの好きなように調整して実行するだけです。