EXCEL VBA スパークラインを設定する。簡易グラフを作成する（SparklineGroups.Addメゾット）

EXCEL VBA スパークラインを設定する。簡易グラフを作成する（SparklineGroups.Addメゾット）

'
'
Sub SparkLine_zigzag() 'スパークライン（折れ線グラフ設定）

    ActiveSheet.Range("I4:I9").SparklineGroups.Add Type:=xlSparkLine, SourceData:="C4:H9"

End Sub
'
'

'
'
Sub SparkLine_Columnchart() 'スパークライン（縦棒グラフ設定）

    ActiveSheet.Range("I4:I9").SparklineGroups.Add Type:=xlSparkColumn, SourceData:="C4:H9"

End Sub
'
'

'
'
Sub SparkLine_Outcome() 'スパークライン（勝敗グラフ設定）

                                
  ActiveSheet.Range("I4:I9").SparklineGroups.Add Type:=xlSparkColumnStacked100, SourceData:="C4:H9"
                                

End Sub
'
'

EXCEL VBA スパークラインを設定する。データ量に応じて自動的に簡易グラフを作成する（SparklineGroups.Addメゾット）

'
'
Sub SparkLine_zigzag10() 'データ件数に応じてスパークライン（折れ線グラフ設定）を設定

    Dim I, lRow As Long
    Dim SLG As SparklineGroup
    
    lRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'Ａ列の最終行を取得します。
    ActiveSheet.Range("F4").SparklineGroups.ClearGroups  '既存のスパークラインを削除します。
    Set SLG = ActiveSheet.Range("F4:F" & lRow).SparklineGroups.Add(Type:=xlSparkLine, SourceData:="B4:E" & lRow)
    'A列の最終行より取得したデータ件数を元にセルF4～F最終列までセルB列～E列の範囲データを元にスパークラインにて簡易グラフを作成
    SLG.Points.Markers.Visible = True '折れ線にマーカーポイントを設定

End Sub
'
'

EXCEL VBA スパークラインを設定する。データ量に応じて自動的に別シートへ3種類（折れ線・縦棒・勝敗）の簡易グラフを作成する（SparklineGroups.Addメゾット）

'
'
Sub SparkLine_zigzag20() 'データ件数に応じてスパークライン（３種類のグラフを作成）


    Dim ws01, ws02 As Worksheet
    Dim SLG As SparklineGroup
    Dim lRow As Long
        
    Set ws01 = Worksheets("データ")
    Set ws02 = Worksheets("グラフ")
    
    
    lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row 'ワークシート「データ」Ａ列の最終行を取得します。
    
    ws02.Range("A4,B4,C4").SparklineGroups.ClearGroups  'ワークシート「グラフ」既存のスパークラインを削除します。
    
    Set SLG = ws02.Range("A4:A" & lRow).SparklineGroups.Add(Type:=xlSparkLine, SourceData:=ws01.Name & "!B4:E" & lRow)
    'ワークシート「データ」A列の最終行より取得したデータ件数を元にセルF4～F最終列までセルB列～E列の範囲データを元にスパークラインにて簡易グラフを作成（折れ線）

    SLG.Points.Markers.Visible = True '折れ線にマーカーポイントを設定
    
    Set SLG = ws02.Range("B4:B" & lRow).SparklineGroups.Add(Type:=xlSparkColumn, SourceData:=ws01.Name & "!B4:E" & lRow)
    '（縦棒グラフを作成）
    Set SLG = ws02.Range("C4:C" & lRow).SparklineGroups.Add(Type:=xlSparkColumnStacked100, SourceData:=ws01.Name & "!B4:E" & lRow)
    '（勝敗グラフ）
 

End Sub
'
'

EXCEL VBA スパークラインを削除する・（スパークライングループ）

'
'グループのスパークラインを削除
'
Sub スパークグループ削除サンプル①()

      ActiveSheet.Range("A4,B4,C4").SparklineGroups.ClearGroups
      'グループ化したスパークラインを削除します。

End Sub
'
'
'

Sub スパークグループ削除サンプル②()

    Dim I As Long
    
    For I = 1 To 3
        ActiveSheet.Cells(4, I).SparklineGroups.ClearGroups
        'グループ化したスパークラインを削除します。
    Next I
    
End Sub
'
'
'
Sub スパークグループ削除サンプル③()

      ActiveSheet.Cells.SparklineGroups.ClearGroups
      'アクティブシートの全てのグループ化したスパークラインを削除します。

End Sub
'
'

EXCEL VBA 指定したスパークラインを削除します。（単体のスパークラインを削除）

'
'
Sub スパーク削除() '指定及び単体のスパークラインを削除

    ActiveSheet.Range("A4").SparklineGroups.Clear
    'セル番号A4のスパークラインを削除します。
    
    ActiveSheet.Range("B6:B7").SparklineGroups.Clear
    'セル番号B6～B7のスパークラインを削除します。
    
    ActiveSheet.Range("C:C").SparklineGroups.Clear
    'C列全体のスパークラインを削除します。

End Sub
'
'