Excel VBA ワークシートのグラフに影をつける-Shadow

Excel VBAでワークシートにあるグラフに影をつける記録です。

グラフに影をつけるには「Shadow」プロパティを使います。

< スポンサーリンク >

「Shadow」プロパティ構文

オブジェクトを影付きに設定するブール型（Boolean）を取得、または設定します。

VBAでグラフに影をつける例

影をつける

アクティブシートの１つ目のグラフに影をつけてみます。

Sub test()
    ActiveSheet.ChartObjects(1).Shadow = True
End Sub

影をはずす

アクティブシートの１つ目のグラフの影をはずしてみます。

Sub test()
    ActiveSheet.ChartObjects(1).Shadow = False
End Sub

すべてのグラフに影をつける

アクティブシートのすべてのグラフに影をつけてみます。

Sub test()
    Dim i As Long

    With ActiveSheet
        For i = 1 To .ChartObjects.Count
            .ChartObjects(i).Shadow = True
        Next i
    End With
End Sub

特定のグラフに影をつける

アクティブシートのすべてのグラフのうち、グラフタイトルが「野菜」と表示されているグラフに影をつけてみます。

Sub test()
    Dim i As Long

    With ActiveSheet
        For i = 1 To .ChartObjects.Count
            If .ChartObjects(i).Chart.ChartTitle.Text = “野菜” Then
                .ChartObjects(i).Shadow = True
            End If
        Next i
    End With
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします