[[20040322171506]]　『Selectメソッドについて』（ゆうやけ）　ページの最後に飛ぶ

『Selectメソッドについて』（ゆうやけ）

以下のようなものをかいたらAxisクラスのSelectメソッドが失敗しました。
とでました。

 With ActiveSheet.ChartObjects(lngCount1 - 6).Chart
                 .Axes(xlCategory).Select
・・・                       
 End With

何が原因でどう対処したらいいのかわかりません。
教えてください。

 何をしたいのですか？
 目的の処理は何でしょうか？ 
  (INA)

すみません。情報がなかったですね。
グラフの変数（lngCount1 - 6）番目のグラフのｘ軸を選択して,
いろいろな設定をしたいのですが・・・。

 最近ちょっとグラフもいじり始めたので試してみました。
これはエラーになりますが、

    With ActiveSheet.ChartObjects("グラフ 1")
    .Axes(xlCategory).Select
    End With
　
こちらはエラーになりません。
　
 ActiveSheet.ChartObjects("グラフ 1").Activate
    With ActiveChart
    .Axes(xlCategory).Select
    End With
　
コード的には一緒だと思うんですが、
アクティブにしないとだめなのかな？
(KAMIYA)

二回目のグラフはうまくいかないのですが・・・（ゆうやけ）

 一応こんなかんじのコードでX軸選択は出来てるみたいですケド。

 Sub TEST_20040322()
 Dim MYCOUNT As Long
 Dim i As Long
 MYCOUNT = ActiveSheet.ChartObjects.Count

 For i = 1 To MYCOUNT
  ActiveSheet.ChartObjects(i).Activate
     With ActiveChart
     .Axes(xlCategory).Select
     End With
     MsgBox ""
 Next
 End Sub

 :XL2000,:WIN98
(KAMIYA)

コメント返信：

[ 一覧(最新更新順) ]

[[20040322171506]] 『Selectメソッドについて』（ゆうやけ） ページの最後に飛ぶ

[[20040322171506]]　『Selectメソッドについて』（ゆうやけ）　ページの最後に飛ぶ