1

こんにちは、データ系列の名前を Unicode 文字を含む名前に設定しようとしていますが、非常に苦労しています。たとえば、シリーズ名を次のようにします。

ε = n²-k²

私はいくつかの投稿を見てきましたが、（私が見た）似たような状況の投稿はありませんでした。私が Excel VBA スクリプトに慣れていないということは、単純なことを見落としている可能性があるということです。特定のチャートが存在することは知っています。なぜなら、このビットのコードは以前に使用したものであり、あちこちにいくつかの余分なビットを追加して機能したからです。「ランタイム エラー (1004): アプリケーション定義またはオブジェクト定義のエラー」というエラーが表示され続けます。現時点で私が持っているものは次のとおりです。

ActiveSheet.ChartObjects(1).Activate
Dim chart1 As String
chart1 = "= " & ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & ChrW(&HB2) & " 6-5-2012"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = chart1
ActiveChart.SeriesCollection(1).XValues = ActiveSheet.Range("F2:F602")
ActiveChart.SeriesCollection(1).Values = ActiveSheet.Range("N2:N602")

デバッガーは、次の行がエラーの原因であると言います。

ActiveChart.SeriesCollection(1).Name = chart1
4

1 に答える 1

1

これはあなたがしようとしていることですか？

chart1 = ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & ChrW(&HB2) & " 6-5-2012"

「=」記号で始まるため、式として参照しているため、そのエラーが発生しています

「=」記号を表示する場合は、その前にスペースを含めます。例えば

chart1 = " = " & ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & _
ChrW(&HB2) & " 6-5-2012"

スナップショット

両方の方法のスナップショット。

ここに画像の説明を入力

于 2012-06-12T20:59:29.277 に答える