もしもマクロ(VBA)が使えたら?その4【グラフの形式変更】

【もしも】マクロが使えたら

マクロ(VBA)が使える人と使えない人の比較動画。
比較的短尺です。
その4「グラフの形式変更」編。


どんな動画?

ぶちょう「100シートのグラフを全て2Dから3Dにしてくれ!」
魔理沙「100シート!気合でなんとか!」
霊夢「マクロ作っとこ!」

翌日
ぶちょう「あ、あのグラフに”最大値”と”最小値”で色分けしといて!もちろん100シート全部ね!」

マクロが使える霊夢と、使えない魔理沙を比較してみましょう。

※動画で書いたコードはあくまで参考程度にどうぞ。

動画で使ったコード

Option Explicit

Sub 全シート3Dに変更()

    Dim i As Long
    For i = 2 To Sheets.Count
        Sheets(i).Activate
        ActiveSheet.Shapes("グラフ 1").Chart.ChartType = 55
    Next

End Sub

新人君
新人君

3Dグラフって…使い道あるんでしょうかね?

ブチョ
ブチョ

俺が使ってるの全部これだよ!

新人君
新人君

おいおい…

※3D…使い時によってはいいの…かな?
デザインセンス皆無のためわからない…

あとがたり

おはこんばんちは。uぷ主です。
「もしもマクロ(VBA)が使えたら」シリーズの第四作目となります。

それぞれのシートに、同じ処理をかけたい時ってありますよね?
それの参考になればなと。

え?それはあるけど3Dグラフはない?
いやいや!
“例えば”の話ですやん!

新人君
新人君

“例えば”ですや~ん!

コメント

タイトルとURLをコピーしました