|
ラモンMG さん 今晩は。
提示のコードは当方で動作確認していますので、
まず提示のコードをそのまま試してみてください。
Sub グラフ作成()
Dim r As Long
Dim 範囲 As Range
If ActiveCell.Value = Empty Then Exit Sub
r = ActiveCell.Row
Set 範囲 = Range(Cells(r, 1), Cells(r, 256).End(xlToLeft))
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:= _
Union(Sheets("Sheet1").Range("A1:E1"), 範囲), PlotBy:=xlRows
' ↑ここでRange("A1:E1")を付け加えています
ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub
-----------------------------------------
>> Set 範囲 = Range(Cells(r, 1), Cells(r, 256).End(xlToLeft))
>の所でRange("A1:E1")を付け加えるのはどうすればいいでしょうか?
>よろしくお願いします。
もし、ここでRange("A1:E1")を付け加えたいのなら
Sub グラフ作成()
Dim r As Long
Dim 範囲 As Range
If ActiveCell.Value = Empty Then Exit Sub
r = ActiveCell.Row
With Sheets("Sheet1")
Set 範囲 = Union(.Range("A1:E1"), Range(.Cells(r, 1), .Cells(r, 256).End(xlToLeft)))
' ↑ここでRange("A1:E1")を付け加えています
End With
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=範囲, PlotBy:=xlRows
' ↑ここも変更します
ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub
となります。
動作確認しています。
このまま貼り付けて試してみてください。
|
|