Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52828 / 76732

←次へ　｜　前へ→


	【28732】Re:ChartTypeプロパティについて

りん

- 05/9/13(火) 18:38 -


	引用なし

	パスワード

ビール腹子さん、こんばんわ。
>　　With ActiveChart
　　　　.SetSourceData Source:=Sheets("Sheet1").Range(Cells(RowPos, 20), Cells(RowPos + i, 20 + m))
　　　　.ChartType = xlSurface　’----ここでエラーが出ますミ(ノ;_ _)ノ =3
>　　　　.Location Where:=xlLocationAsObject, Name:="Sheet1"
>　　　　.HasTitle = True
>　　　　.ChartTitle.Text = Cells(RowPos - 4, 1).Value
>　　　　.HasLegend = False
>　　End With
等高線のグラフは作成元のデータを指定しないと、普通に手動で作成してもエラーになります（２つ以上のデータ系列が必要）。
↓動作確認様に必要な部分だけ取り出してあります。
Private Sub commandbutton1_click()
　 Dim chtobj As ChartObject
　 Dim Sht1 As Worksheet
　 Set Sht1 = ActiveSheet ' = Sheet1?
　 '適当に数値を入れました
　 RowPos = 10: m = 3: i = 3
　 With Sht1
　　　Set chtobj = .ChartObjects.Add(.Cells(RowPos, 7).Left, .Cells(RowPos, 7).Top, 200, 100)
　 End With
　 With chtobj.Chart
　　　 .SetSourceData Source:=Sht1.Range(Sht1.Cells(RowPos, 20), Sht1.Cells(RowPos + i, 20 + m))
　　　 .ChartType = xlSurface　'----ここでエラーが出ますミ(ノ;_ _)ノ =3
　　　 .HasTitle = True
　　　 .ChartTitle.Text = Sht1.Cells(RowPos - 4, 1).Value
　　　 .HasLegend = False
　 End With
　 Set Sht1 = Nothing
End Sub

　順番変えたら動きました。
　あと、ActiveSheetを使用（Rangeとかの前を省略するのもActiveSheet）していますが、Sheet1がActiveSheetでない可能性がないとはいえないので、エラー回避のためにSetして参照するようにしてあります。

0 hits

▼

【28719】ChartTypeプロパティについて ビール腹子 05/9/13(火) 15:37