VBAを使ったバーコードの使用と自動化 PowerPoint

Visual Basic for Applications（VBA）を使えば、さまざまな問題を簡単に解決することができます。ここでは、VBAを使用してPowerPointプレゼンテーションにバーコードを統合する方法、それを使用する方法、およびそれを削除する方法を簡単に示しています。

VBAを使用してActiveBarcodeコントロールをアクティブスライドに挿入する方法です：
この例では、バーコードはスライドの指定された位置とサイズに配置されます。そして、オブジェクトはabでアドレス指定できます：

Dim ab As Shape
Set ab = Application.ActiveWindow.View.Slide.Shapes.AddOLEObject(Left:=100,
  Top:=100, Width:=300, Height:=150, ClassName:="ACTIVEBARCODE.BarcodeCtrl.1")

これで、変数abのプロパティを使用して、OLEオブジェクトの標準プロパティ（高さや幅など）を変更できるようになりました：

ab.Width = 200
ab.Height = 120

これで、バーコード・オブジェクトのプロパティとメソッドを好きなように使うことができる：

ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"
ab.OLEFormat.Object.Rotate = 90

印刷後など、コントロールが不要になった場合は、マクロ/スライドからコントロールを簡単に削除できます：

 ab.Delete

ヒント: マクロ内でWindowsが今後のイベント(KeepWindowsAliveと呼ばれることが多い)を処理する必要がある場合、次のVBA関数を使用してこれを強制できます：

DoEvents

これは例えば、コントロールがそれ自身を新しく描画しなければならない場合などに必要となる。