IT仕事

ExcelVBAでグラフのサイズやフォント種類を変更

投稿日:2015年6月25日 更新日:

秀吉というアンケートソフトで作ったExcelのグラフを、マクロを使って色々変えようと。
たくさんあるのでExcel2013のVBAで、グラフサイズとともにフォントサイズとフォント種類を変更しようとしたのだが、なかなかうまくいかない。
マクロの自動記録で作ったコードでは、再実行したときにエラーメッセージが出て、使い物にならないかったり。なぜ?
2時間ほどかかって、やっとできたのが、以下。

Public Sub 秀吉で作ったグラフのサイズを統一()
    Dim TempChartObject As Variant
    Dim cht As Chart
    Dim ws As Worksheet
     
    For Each ws In ActiveWorkbook.Worksheets
        For Each TempChartObject In ws.ChartObjects
            With TempChartObject
                .Height = 200
                .Width = 500
                Set cht = .Chart 'ここがポイント
            End With
            With cht.ChartArea.Format.TextFrame2.TextRange.Font
                .Size = 10
                .NameFarEast = "+mj-ea" 'MS Pゴシック 見出し
                .Name = "+mj-ea"
            End With
        Next
    Next
End Sub

見ればわかるけど、上記に加え、アクティブブックの全シートに対して同様の処理をする処理をしています。

ああ今日も疲れた(未だ昼だけど)。

-IT仕事

執筆者:

関連記事

no image

セキュアド合格!!

昨日、秋に受験した情報セキュリティアドミニストレータの合格証書が届いた。 ウレシー!! だって落ちに落ちて、3度目の正直だもん。 年に1度しかない試験だもん。 今度落ちたらもう受験するのやめようかと思 …

じゃじゃ馬Artisteer

私はWeb制作にArtisteerというソフトを使っている。 Googleで検索しても、あまりヒットしないので、おそらく日本ではマイナーなのだろう。 世界ではどうか知らない。アメリカの会社みたいけど、 …

no image

バッファローのNASでトラブル

会社のファイルサーバが満腹になってきたので、新しいのを買った。 バッファローの、LS-WSX1.0TL/R1。 早速、こんなメールをバッファローのサポートに送ることになった。 — ほとんど …

no image

プロバイダがOCN、メール送信手段がBASP21、の組み合わせで、やっとメールが送れた

2時間かかった。 Google先生も、なかなか教えてくんなくて。 サーバ名に”smtp.vc”を含めるのが、ポイント。 Sub TestSendMailCom() ‘Bacs使用例1 SendAllメ …

GoogleSpreadSheet上の注文番号をキーにGASでGmailのスレッドにラベルを付加

Gmailにあるメールから、スプレッドシートに記入してある注文番号と、注文入力時につけられた注文ラベルをもとに、スレッドを検索して、検索結果に対して新たなラベル付けをしたかった。 参考Webをもとに、 …