Shapeに3D効果を与えるにはThreeDプロパティーを使用してThreeDFormat
オブジェクトを取得し、各種プロパティーの設定などを行います。

以下のサンプルでは四角形にテキストを追加し、塗りつぶしを行った上で
左上方向への3D効果を与えた青色のShapeを作成します。


Sub CreateShapeWith3DEffect()

    Dim Rng As Range
    Dim Sh As Shape
    Dim L As Double, T As Double, W As Double, H As Double

    '指定セル範囲にあわせてShapeの位置決め
    Set Rng = ActiveSheet.Range("B5:G10")
    L = Rng.Left: T = Rng.Top: W = Rng.Width: H = Rng.Height
    'Shapeの追加
    Set Sh = Sheet1.Shapes.AddShape(msoShapeRectangle, L, T, W, H)
    
    With Sh
        .Fill.ForeColor.RGB = vbBlue '塗りつぶし
        .TextFrame.Characters.Text = "3DのShape" 'テキストの追加
        .TextFrame.Characters.Font.Size = 32 'フォントサイズ
        .TextFrame.Characters.Font.Color = vbWhite 'フォント色
        .TextFrame.HorizontalAlignment = xlHAlignCenter '水平方向の位置
        .TextFrame.VerticalAlignment = xlVAlignCenter '垂直方向の位置
    End With

    With Sh.ThreeD 'ThreeDFormatオブジェクトの取得
        .Depth = 50 ' 奥行きの設定
        .SetExtrusionDirection msoExtrusionTopLeft '奥行きの方向の設定
        .ExtrusionColor.RGB = vbBlue '3Dの色を設定
        .Visible = True
    End With

End Sub

※自動書式設定にはSetThreeDFormatメソッドを用います。
※光源の位置の設定にはPresetLightingDirectionプロパティー、光の強さには
　PresetLightingSoftnessプロパティーを使用します。