
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ランキング
-
印刷時に、複数ページに共通な...
-
Wordで、タイトルと名前は真ん...
-
質問タイトルに最低文字数が必...
-
レポートにタイトルは絶対必要?
-
InputBox キャンセルボタンが...
-
Excel:2ページ目以降のタイト...
-
HPのタイトルはどのようにすれ...
-
Wordに登録したタイトル(表題...
-
GASで◯月第◯週→何日から何日と...
-
音楽のレポートの書き方につい...
-
アクセス レポート テキスト...
-
Excel VBAのINPUT BOX...
-
詩の題名はつけたほうがいいで...
-
可愛い特殊文字の文字列?みた...
-
12インチって何センチ?
-
エクセルで、表のタイトル数を...
-
彫像の名前
-
中学校の卒業文集タイトルが思...
-
以前にpornhubで見たエロ動画を...
-
「字がちょっとヘタな女性が好...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷時に、複数ページに共通な...
-
Excel:2ページ目以降のタイト...
-
Wordに登録したタイトル(表題...
-
Wordで、タイトルと名前は真ん...
-
InputBox キャンセルボタンが...
-
【Excel】複数のタイトル行を設...
-
【WORD2003】表の繰り返しタイ...
-
12インチって何センチ?
-
過去の全国の波の高さデータが...
-
ワイルドカード 「Not like」
-
アクセス レポート テキスト...
-
『む』からはじまるポジティブ...
-
DVDの副音声が聞きたい
-
Wordのプロパティ「タイトル」...
-
詩の題名はつけたほうがいいで...
-
印刷のタイトルは行も列も同時...
-
【初心者】エクセルVBAタイトル...
-
音楽のレポートの書き方につい...
-
ホームページでお気に入りに登...
-
柳田國男の「日本には世間があ...
おすすめ情報