
Excelで作成したグラフのタイトルの、(左の位置や幅は文字数で違ってくるので、)TopとHeightを、VBAを使って変更しようと思っています。
それで、以下のようなコードを書いてみたのですが、
「引数の数が一致しません または不正なプロパティを使用しています」
とのエラーメッセージが出てしまい、実行できません。
ChartTitle.Left などの引数の型はDoubleのようなので、
' Dim T, L, H, W As Double
としてみましたが、変化はありません。
Sub ChangeChartTitlePos()
'Excel VBA でグラフタイトルの位置変更
' Dim T, L, H, W As Double
T = 2: L = 68.4: H = 26.4: W = 220
With ActiveChart.ChartTitle
.Top = T
.Height = H
' .Left = L
' .Width = W
End With
End Sub
どなたか解決方法をご教授頂ければ幸いです。
また、VBAを使わずにグラフのタイトルのTopとHeightを任意の値に変更する方法がありましたら、その方法も教えて頂ければと存じます。
よろしくお願いします。
追記
ちなみに、プロットエリアの変更は、以下のコードで処理できています。
Sub ChangePlotArea()
With ActiveChart.PlotArea
.Top = 36.4
.Left = 7
.Height = 190.6
.Width = 274.5
End With
End Sub
No.3ベストアンサー
- 回答日時:
タイトルの書式を設定するVBAコード例です
With ActiveChart
.HasTitle = True
.ChartTitle.Top = 1 -を付けると上に行きます
.ChartTitle.Left = 数値 左側からタイトル文字の位置を調整します
.ChartTitle.Font.Size = 文字の大きさの数値
.ChartTitle.Font.ColorIndex = 色の種類 カラー番号
.ChartTitle.Font.Name = "Broadway BT" フォントを指定します
.ChartTitle.Font.Bold = False
.ChartTitle.Text = "タイトル"
.ChartTitle.Shadow = True タイトルに影を付けます
.ChartTitle.Border.ColorIndex = タイトルを囲む線の色
.ChartTitle.Border.LineStyle = xlContinuous
.ChartTitle.Border.Weight = xlThin 'xlMedium
.ChartArea.Fill.Visible = True
.ChartArea.Fill.PresetTextured PresetTexture:=表の背景のパターンを指定.数値
End With
No.2
- 回答日時:
回答がついている通りでいいのですが、
.left .top は指定できますが
.height .width は取得しかできません。
そこで、空白文字を追加すれば幅はみかけ上変えることができます。
また、空白文字のfont sizeだけを大きく変えるとかでみかけの高さを変えられます。
ただし、2010版では通常のテキストボックスや図形に文字を追加したときのようにはならないので
凝ったものにするのなら、それらのオブジェクトを使うしかないでしょう。
No.1
- 回答日時:
>With ActiveChart.ChartTitle
With ActiveSheet.ChartObjects(1).Chart.ChartTitle
では
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
エクセルで質問です。 ハイパー...
-
Office2021を別のPCにインスト...
-
エクセル 同じ数字を他の列に自...
-
大学のレポート A4で1枚レポー...
-
outlookのメールが固まってしま...
-
Microsoft365、ページ設定がで...
-
マクロ自動コピペ 貼り付ける場...
-
MicrosoftOfficeについて質問で...
-
快活CLUBについて 私用で使う書...
-
Excelで〇のついたものを抽出し...
-
パソコンWindows11 Office2021...
-
別シートの年間行事表をカレン...
-
Excel 日付を比較したら、同じ...
-
逆順
-
エクセルからメールを作れるか...
-
libreoffice calcで行を挿入し...
-
Officeを開くたびの「再起動メ...
-
Microsoft Formsの「個人情報や...
-
パソコン画面の中の小さい画面...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷時に、複数ページに共通な...
-
Excel:2ページ目以降のタイト...
-
Wordで、タイトルと名前は真ん...
-
Wordに登録したタイトル(表題...
-
DVDの副音声が聞きたい
-
12インチって何センチ?
-
【Excel】複数のタイトル行を設...
-
Finale NotePad 2012 タイト...
-
【WORD2003】表の繰り返しタイ...
-
InputBox キャンセルボタンが...
-
印刷のタイトルは行も列も同時...
-
詩の題名はつけたほうがいいで...
-
いわゆる「植物人間」の現在の...
-
高校生のおこずかいの平均
-
助けてください
-
ワイルドカード 「Not like」
-
HPのタイトルはどのようにすれ...
-
Win Media Playerにタイトル
-
質問タイトルに最低文字数が必...
-
Excel VBAのINPUT BOX...
おすすめ情報