秀吉というアンケートソフトで作ったExcelのグラフを、マクロを使って色々変えようと。
たくさんあるのでExcel2013のVBAで、グラフサイズとともにフォントサイズとフォント種類を変更しようとしたのだが、なかなかうまくいかない。
マクロの自動記録で作ったコードでは、再実行したときにエラーメッセージが出て、使い物にならないかったり。なぜ？
2時間ほどかかって、やっとできたのが、以下。
[code]
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" ‘ＭＳ Ｐゴシック 見出し
.Name = "+mj-ea"
End With
Next
Next
End Sub
[/code]
見ればわかるけど、上記に加え、アクティブブックの全シートに対して同様の処理をする処理をしています。
ああ今日も疲れた（未だ昼だけど）。
