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

紙2001

以前、人に便利だと教えてもらいながら、キチンと試していなかった「

PhotoshopElementsでWebデザイナーが作ったようなキレイなボタンを作るには

PSPについては、 思わず押してみたくなる、いとも簡単なボタンの作り方 | 楽してプロっぽいデザイン | Forty-N-FiveBlog など、Web上にいろいろ解説があるけども、Elementsに …

no image

改行文字の置換 まとめ

○強制改行をExcelで置換 検索側:[Ctrl]キー+[J]キー(何も表示されない) 置換側:任意 ○改行をWordで置換 検索側:^13(「ワイルドカードを使用する」にチェックをつけておく) 置換 …

no image

自分のサイトに埋め込みしたGoogleマイマップの中心位置カスタマイズは不可

Googleマイマップが新しくなってしばらく経つ。 お客さんのサイトに埋め込んで便利に使わせていただいていたのだが、本日、困ったことを発見した。 地図の中心位置をカスタマイズできない、のだ。 以前のマ …

no image

今日知ったWordPressの便利なプラグイン

NextgenGallery:英語管理画面だけど、写真を一発表示・ページ作成できるので便利そう。今回は下述のwp-kougakuを採用したので、コチラは見送り。 php-code-widget:ウイジ …