3.その他のマクロ 3-1.グラフのgif保存 作成したチャートをgif保存できると、便利の場合が多々あります ... 3.その他のマクロ 3-1.グラフのgif保存 作成したチャートをgif保存できると、便利の場合が多々あります Sub gif保存() Dim cname As String 'シートに表示されているチャート名 Dim gname As String 'gif保存のチャート名 ' チャート名 For Each zu In ActiveSheet.ChartObjects '[1] cname = zu.Name Next If cname = "" Then MsgBox "このシートにグラフがありません" Exit Sub End If '保存場所確認 '[2] phn = ActiveWorkbook.Path '保存ファイル名 gname = "TestChart" '[3] msg = "縮小する場合は縮小率を入力して下さい。" & Chr$(10) & Chr$(10) _ &
記事へのコメント0件
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています