2

Excel でグラフを書式設定するマクロを作成して、すべてのグラフの書式設定が同じでデータが異なるようにしようとしています。通常はフォーマットを貼り付けるだけですが、これらのチャートはプラグインを使用して作成されており、「フォーマットの貼り付け」と互換性がないようです。各グラフは、グラフ データとともに別のワークシートにあります。

私のチャートには3つのシリーズがあります。各シリーズには特定の形式があります。たとえば、シリーズ 1: 円形マーカー、サイズ 3pt、マーカー ラインなし、緑の塗りつぶし。シリーズ 2: 円形マーカー、サイズ 3 ポイント、黒のマーカー ライン、黄色の塗りつぶし。シリーズ 3: 円形マーカー、サイズ 3 ポイント、マーカー ラインなし、赤い塗りつぶし。

また、グラフはプレゼンテーション用に特定のサイズである必要があります (正確なサイズはまだわかりませんが、おそらく編集しやすいはずです)。

これらは、グラフを希望どおりに表示するためにデフォルトから変更する必要がある唯一のパラメーターです。誰でも助けることができますか？

4

1 に答える 1

2

グラフの書式設定は、VBA を使用してかなり簡単に行うことができます。

Dim chChart as chart
set chChart = Thisworkbook.Sheet("Sheet1").ChartObjects("Chart1").Chart
With chChart
    seriescollection(1).Markerforegroundcolor = rgb(255,255,255)
    seriescollection(1).Markerbackgroundcolor = rgb(255,255,255)
    seriescollection(1).interior.color = rgb(255,255,255)
End With

上記のコードから、正しいシート名とチャート名に置き換えて、マクロの書き方がわかります。理想的には、いくつかのループを使用して、チャート内のチャートとシリーズをループします

For each chart in Thisworkbook.Sheet("Sheet1").ChartObjects
For each series in chChart.seriescollection

変更したい正確な値を取得するには、手動で変更を行ったマクロを記録するか、エディター オブジェクト ブラウザー (VBA エディターの F2) を使用して可能性の高い値を見つけることをお勧めします。

于 2012-09-13T16:52:47.047 に答える