Excel VBA質問箱 IV

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

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


9957 / 13646 ツリー ←次へ | 前へ→

【24580】グラフの名前とレンジの変更について mitu 05/4/27(水) 11:02 質問[未読]
【24581】Re:グラフの名前とレンジの変更について つん 05/4/27(水) 11:33 回答[未読]
【24586】Re:グラフの名前とレンジの変更について 小僧 05/4/27(水) 14:52 回答[未読]
【24590】Re:グラフの名前とレンジの変更について mitu 05/4/27(水) 18:24 お礼[未読]
【24602】Re:グラフの名前とレンジの変更について 小僧 05/4/28(木) 9:18 発言[未読]

【24580】グラフの名前とレンジの変更について
質問  mitu  - 05/4/27(水) 11:02 -

引用なし
パスワード
   sheetに折線グラフを貼り付けています。
このグラフの名前を取得し、または変更する方法についてご教示願います。

【24581】Re:グラフの名前とレンジの変更について
回答  つん E-MAIL  - 05/4/27(水) 11:33 -

引用なし
パスワード
   ▼mitu さん:
こんにちは。

>sheetに折線グラフを貼り付けています。
>このグラフの名前を取得し、または変更する方法についてご教示願います。

名前の取得は

MsgBox Worksheets("Sheet1").ChartObjects(1).Name

で、OKだと思います。
変更も、

Worksheets("Sheet1").ChartObjects(1).Name = "ほげほげ"

みたいな感じで・・・・
「レンジの変更」ってのがよくわからないんですが。

【24586】Re:グラフの名前とレンジの変更について
回答  小僧  - 05/4/27(水) 14:52 -

引用なし
パスワード
   ▼mituさん つんさん:
こんにちは。

>「レンジの変更」

元データとなる範囲の事でしょうか?
そうでしたらこんな感じで…。

Sub データソース変更()
Dim CObj As ChartObject
Dim DataRange As Range
  
  Set DataRange = ActiveSheet.Range("A1:B10")
  Set CObj = ActiveSheet.ChartObjects(1)
  
  CObj.Chart.SetSourceData DataRange, xlColumns
  
  Set CObj = Nothing
  Set DataRange = Nothing
End Sub

【24590】Re:グラフの名前とレンジの変更について
お礼  mitu  - 05/4/27(水) 18:24 -

引用なし
パスワード
   ▼つん さん:
こんにちは。
早速のご教示有難うございました。

>「レンジの変更」ってのがよくわからないんですが。

質問が中途半端になり、申しわけありません。
X軸に月日、Y軸に出来高を表示するようにしているのですが、Y軸のレンジというか、最大値を自動でなくて指定したく、そのためにグラフの名称が必要かと思われたのです。

【24602】Re:グラフの名前とレンジの変更について
発言  小僧  - 05/4/28(木) 9:18 -

引用なし
パスワード
   ▼mitu さん:
おはようございます。
最大値の変更でしたらこんな風になるかと思われます。

Sub 最大値()
Dim CObj As ChartObject
    
  Set CObj = ActiveSheet.ChartObjects(1)
  
  CObj.Chart.Axes(xlValue).MaximumScale = 30
  
  Set CObj = Nothing

End Sub

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