Excel VBA質問箱 IV

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

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


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

58295 / 76732

←次へ　｜　前へ→


	【23168】Re:VBAで散布図

Kein - 05/3/15(火) 14:16 -


	引用なし

	パスワード

InputBoxメソッドで、Rangeオブジェクトを取得することが出来ますので
とりあえずこんなマクロを試してみて下さい。
　
Sub Test_MyCh()
　 Dim PltR As Range
　 Dim MyCh As ChartObject

　 On Error Resume Next
　 Set PltR = Application _
　 .InputBox("グラフのプロット範囲を選択して下さい", Type:=8)
　 If Err.Number <> 0 Then Exit Sub
　 On Error GoTo 0
　 With ActiveSheet.ChartObjects
　　　If .Count > 0 Then
　　　　 Set MyCh = .Item(1)
　　　Else
　　　　 Set MyCh = .Add(10, 10, 300, 200)
　　　End If
　 End With
　 With MyCh.Chart
　　　.ChartType = xlXYScatterLines
　　　.SetSourceData PltR, xlColumns
　　　.HasLegend = False
　 End With
　 Set PltR = Nothing: Set MyCh = Nothing
End Sub　

0 hits

▼

【23161】VBAで散布図 もぐもぐ 05/3/15(火) 11:31