Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9968 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼つん さん：
こんにちは。
早速のご教示有難うございました。

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

質問が中途半端になり、申しわけありません。
Ｘ軸に月日、Ｙ軸に出来高を表示するようにしているのですが、Ｙ軸のレンジというか、最大値を自動でなくて指定したく、そのためにグラフの名称が必要かと思われたのです。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9968 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free