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仕事

執筆者:

関連記事

WindowsのエクスプローラでEPSとAIとPSDのサムネイルが表示されないのでSageThumbs

WindowsのエクスプローラでEPSとAIとPSDのサムネイルが表示されないので、SageThumbsというソフトをインストールしてみた。 ・・・けども表示されない。 あらためてGoogle先生に聞 …

OneDriveに不安

最近、マイクロソフトのOffice365のサービスを使ってみている。 定額でOfficeを5台までの自分のPCにインストールできるし、期待以上に使い勝手はいい。 しかし今日、OneDriveを使ってみ …

no image

WP Canvas – shortcodeとWelcartで最強の商品一覧を作る

WordPressのECサイト構築用のWelcartプラグイン、大好き。 ただ、唯一気に入らない点が(制作者様すいません!)、商品の一覧ページを作るのが面倒なこと。 公式で提供されている専用テンプレー …

no image

WordPressMe2.3.3で、Deprecatedエラー

朝、出社して管理しているお客様のサイトを見ると、上部に見たこともないエラーがずらずら出ていた。 Deprecated: Assigning the return value of new by ref …

no image

CliborとPythonで明日(昨日)の日付を出す

Clibor、使ってますか? 私は毎日使っています 例えば、「2018/07/02(月)」のように明日の日付を書きたいと思ったら、どうやって入力していますか? キーボードで13個以上のキーを押して、曜 …