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

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

< スポンサーリンク >





「Shadow」プロパティ構文

式.Shadow

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

 

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

影をつける

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

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

VBAグラフ影

VBAグラフ影

 

影をはずす

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

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

VBAグラフ影

VBAグラフ影

 

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

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

Sub test()
    Dim i As Long

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

VBAグラフ影

VBAグラフ影

 

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

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

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

VBAグラフ影

VBAグラフ影

 

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