VBAを使用したMS Accessの棒グラフにデータラベルを追加する

Question

私はVBAを使用してプログラムでピボットグラフにデータラベルを追加しようとしていましたが、わかりません。私はどこでもオンラインで見てきましたが、私の特別なケースでは何もうまくいかないようです。

Dim myForm As Form 
Set myForm = Forms("My Form") 

これはかなり簡単かもしれませんが、そこから 'HasDataLabels'プロパティにアクセスするにはどうすればよいですか？私は2つのシリーズに追加する必要があります。ここ

Answer 1

エテン、

は円グラフピボットチャートとして視聴中のフォームにデータラベルを追加するために使用することができる少しVBAです。 ChartSpaceが利用できない可能性があるため、フォームがピボットチャートとして表示されない場合、このコードによってエラーが発生することがあります。

Private Sub Form_Load() 
    Dim FormChartSpace As owc10.ChartSpace 

    Set FormChartSpace = Me.Form.ChartSpace 
    FormChartSpace.Charts(0).SeriesCollection(0).DataLabelsCollection.Add 
    FormChartSpace.Charts(0).SeriesCollection(0).DataLabelsCollection(0).HasValue = True 
    Set FormChartSpace = Nothing 
End Sub 

あなたにもこのリンクが参考に見つけるかもしれない：Programming PivotTable Reports in Microsoft Access 2002

アクセスVBAでグラフをフォーマットする多くの方法があります。グラフ全体をプログラムで作成すると、ユーザーにとってより堅牢になることが判明しました。これにより、フォームが読み込まれるたびにグラフが最初から再作成されるため、誤ってコントロールをドラッグすることによってユーザーが誤ってグラフを破損する問題を回避できます。上記のコードを使用して

---

は、[参照設定]をクリックし、[ツール]メニューの[OWC10（のMicrosoft Office XP Webコンポーネント）

1. への参照が必要です。
2. [参照]ボタンをクリックします。
3. C：\ Program Files \ Microsoft Office \ Office12 \ OFFOWC.DLLファイルを参照してください。 （場所は、使用しているオフィスのバージョンに基づいて変更できます）
4. ファイルをクリックし、[開く]をクリックします。これにより、Microsoft Office XP Webコンポーネントライブラリへの参照が追加されます。
5. [OK]をクリックして[参照設定]ダイアログボックスを閉じます。