touch-sp.hatenablog.com 上記記事よりさらに細かい設定を加えました。 '折れ線グラフを描く ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim graphdata As Range Set graphdata = Range("A1").CurrentRegion ActiveSheet.Shapes.Ad…