|
▼うぇい さん:
こんにちは。
>そこで範囲をあらかじめ選択し、その部分をグラフとするマクロにしようと思ったのですが
>これだとデータ範囲の系列が「列」設定になってしまいます。
>「PlotBy:=xlRows」は残して、「行」設定のままグラフを作成したいのですが
>それはどのようにすれば可能でしょうか。
こんな感じですかね
Sub Try2()
Dim Src As Range
If TypeName(Selection) <> "Range" Then
MsgBox "元データ範囲を選択して実行してください"
Exit Sub
End If
Set Src = Selection
If Src.Columns.Count < 3 Then
Set Src = Nothing
MsgBox "元データ範囲を選択して実行してください"
Exit Sub
End If
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Src, PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, _
Name:=Src.Worksheet.Name
(以下省略)
End Sub
|
|