Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11571 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15333】グラフにコメント(？)を入れる方法 PO 04/6/21(月) 20:42 質問[未読]
【15350】Re:グラフにコメント(？)を入れる方法 つん 04/6/22(火) 9:34 発言[未読]
【15355】Re:グラフにコメント(？)を入れる方法 PO 04/6/22(火) 11:55 質問[未読]
【15356】Re:グラフにコメント(？)を入れる方法 つん 04/6/22(火) 12:31 回答[未読]
【15358】Re:グラフにコメント(？)を入れる方法 PO 04/6/22(火) 13:15 お礼[未読]
【15366】Re:グラフにコメント(？)を入れる方法 kein 04/6/22(火) 15:21 回答[未読]
【15391】Re:グラフにコメント(？)を入れる方法 PO 04/6/23(水) 11:18 お礼[未読]
【15333】グラフにコメント(？)を入れる方法
質問  PO  - 04/6/21(月) 20:42 -
引用なし
パスワード
   いつも利用させてもらってます、POです。

グラフシートに、
・グラフ
・タイトル
・凡例
を設定しているのですが、
「月合計：100個」
というコメントをフラグシートの右上に載せたいと思っています。

上記を実現することってできるのでしょうか？？
【15350】Re:グラフにコメント(？)を入れる方法
発言  つん E-MAIL  - 04/6/22(火) 9:34 -
引用なし
パスワード
   PO さん、おはようございます。

>グラフシートに、
>・グラフ
>・タイトル
>・凡例
>を設定しているのですが、
>「月合計：100個」
>というコメントをフラグシートの右上に載せたいと思っています。

めっちゃ外してるような気もするんやけど、
グラフシートの右上ということだったら、
ヘッダーに設定したらどないですか？

だ・・・だめ？
【15355】Re:グラフにコメント(？)を入れる方法
質問  PO E-MAIL  - 04/6/22(火) 11:55 -
引用なし
パスワード
   つんさん、いつも回答ありがとうございます。

いっつも変な質問ばかりしてますよね、私・・・。

>めっちゃ外してるような気もするんやけど、
>グラフシートの右上ということだったら、
>ヘッダーに設定したらどないですか？

今、ヘッダーに設定してみました。
ただ、ヘッダーだと印刷プレビューにしないと、
見れませんよね？

ヘッダーをいつでも公開(？)状態にできたらいいのですが・・・・。
【15356】Re:グラフにコメント(？)を入れる方法
回答  つん E-MAIL  - 04/6/22(火) 12:31 -
引用なし
パスワード
   >いっつも変な質問ばかりしてますよね、私・・・。
こちらこそ、いつも頼りない私の対応で、申し訳ないような・・・

>ただ、ヘッダーだと印刷プレビューにしないと、
>見れませんよね？
>ヘッダーをいつでも公開(？)状態にできたらいいのですが・・・・。

あー、そっか。
そしたら、テキストボックスで表示するしかないかな？
コードで書くなら、こんな感じかなあ？

Sub test()

　　Dim shText As Shape
　　
　　Set shText = ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 564.7, 14.37, _
　　　　129.34, 33.81)
　　
　　With shText.TextFrame.Characters
　　　　　　.Text = "月合計：100個"
　　　　　　.Font.Size = 14
　　End With
　　
　　Set shText = Nothing
　　　　
End Sub
【15358】Re:グラフにコメント(？)を入れる方法
お礼  PO E-MAIL  - 04/6/22(火) 13:15 -
引用なし
パスワード
   つんさん

ありがとうございます！！！

つんさんが書いてくれたコードでやってみたら、
うまくいきました！！

すっごく助かりました♪
またわからなくなったときは、お願いいたします。


>あー、そっか。
>そしたら、テキストボックスで表示するしかないかな？
>コードで書くなら、こんな感じかなあ？
>
>Sub test()
>
>　　Dim shText As Shape
>　　
>　　Set shText = ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 564.7, 14.37, _
>　　　　129.34, 33.81)
>　　
>　　With shText.TextFrame.Characters
>　　　　　　.Text = "月合計：100個"
>　　　　　　.Font.Size = 14
>　　End With
>　　
>　　Set shText = Nothing
>　　　　
>End Sub
【15366】Re:グラフにコメント(？)を入れる方法
回答  kein  - 04/6/22(火) 15:21 -
引用なし
パスワード
   簡単なのは、数値軸ラベルを表示する方法です。

With ActiveChart
　 .Axes(xlValue).HasTitle = True
　 With .Axes(xlValue).AxisTitle
　　　.Caption = "月合計：100個"
　　　.AutoScaleFont = True '.Font.Size = 8
　　　.Left = 240
　　　.Top = 1
　　　.Orientation = xlHorizontal
　 End With
End With

.Leftは、ChartArea.Left から適当な位置を、ポイント単位で決めて下さい。
【15391】Re:グラフにコメント(？)を入れる方法
お礼  PO E-MAIL  - 04/6/23(水) 11:18 -
引用なし
パスワード
   keinさん。

なるほど、数値軸ラベルを表示する方法でも
テキストを表示することが出来るのですね。

いろいろな方法がわかって、うれしいです。
ありがとうございました！

▼kein さん：
>簡単なのは、数値軸ラベルを表示する方法です。
>
>With ActiveChart
>　 .Axes(xlValue).HasTitle = True
>　 With .Axes(xlValue).AxisTitle
>　　　.Caption = "月合計：100個"
>　　　.AutoScaleFont = True '.Font.Size = 8
>　　　.Left = 240
>　　　.Top = 1
>　　　.Orientation = xlHorizontal
>　 End With
>End With
>
>.Leftは、ChartArea.Left から適当な位置を、ポイント単位で決めて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11571 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free