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

「良さそう」と思ってもらうには4つのポイント

経営を伸ばす視覚伝達デザインの鉄則 : 第4回 「良さそう」と思ってもらうには4つのポイントが必要 (1) 伝えたい情報が伝わっているか (2) 伝えたい世界観が伝わっているか (3) アイデンティテ …

no image

CSSで、はまった(画像の重なり・relative/absolute)

トラブル:トップページに配置した「ネットでの購入はこちら」ボタンが、ウィンドウの大きさに合わせて移動してしまう。 横長が狭い画面だと右の位置にあるが、広い画面だと真ん中に来る。CSSを見ると、posi …

no image

Excelグラフの軸ラベルを折り返したい

Excel2007で、グラフの長いラベル文字の折り返しを2行にしたい。 しかし設定ダイアログには項目がない。 がんばって試行錯誤して、何とかうまくいったものの、とても尋常ではないやり方。 しかしこれし …

no image

WPに投稿、評価機能を設ける

■プラグインの準備 WP-PostRatingsをインストールする。 WP-PostRatingsの日本語化ファイルをFTPで上書きする。 ■評価させたい投稿を選択 投稿(コメント)と評価を設けたい投 …

no image

facebookアプリに初挑戦

そろそろ、手を付けないとやばいかもと、重い腰をあげることにした。 まずは早速、ディベロッパー登録でつまずいた。 登録するには携帯メール(docomoなどのキャリアメール)が必要なのだが、自分はPHSし …