0

したがって、グラフを作成する必要があり、そのグラフにあるデータは、ユーザーが現在強調表示している範囲である必要があります。これをうまく行ってグラフを作成しましたが、「オブジェクトはこのプロパティまたはメソッドをサポートしていません」というエラーが表示されますがスローされました。誰かがこのエラーを修正するのを手伝ってくれませんか。グラフを作成するさまざまな方法を試しましたが、これが唯一の方法で動作に近づいています

チャートを作成するための私のコード:

Sub CreateChart()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=ActiveSheet.range(Selection.Address)
End Sub
4

1 に答える 1

1

あなたの質問に対する可能な答えはほとんどありません。まず、マクロを実行すると、ユーザーはいくつかの範囲を選択できます。これは、成功するには次のコードのみが必要であることを意味します。

Sub CreateChart()
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBarClustered
End Sub

とにかく選択した範囲への参照を設定する必要がある場合は、次のようにすることができます。

Sub CreateChart_modif()
    Dim rngSel As Range
    Set rngSel = Selection

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData source:=rngSel
End Sub
于 2013-03-30T14:42:53.017 に答える