エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
その他のマクロ
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) _ &