Excel VBA質問箱 IV

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

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


11570 / 13645 ツリー ←次へ | 前へ→

【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 から適当な位置を、ポイント単位で決めて下さい。

11570 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free