Używanie i automatyzacja kodów kreskowych za pomocą VBA w PowerPoint

Dzięki Visual Basic for Applications (VBA) można łatwo rozwiązać wiele problemów. Poniżej pokażemy, jak zintegrować kod kreskowy z prezentacją PowerPoint za pomocą VBA, jak go używać i jak go usunąć.

Oto jak wstawić kontrolkę ActiveBarcode do aktywnego slajdu za pomocą VBA:
W tym przykładzie kod kreskowy jest umieszczany w określonej pozycji i rozmiarze na slajdzie. Obiekt można następnie zaadresować za pomocą 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")

Teraz można zmienić standardowe właściwości (np. wysokość, szerokość) obiektu OLE za pomocą właściwości zmiennej ab:

ab.Width = 200
ab.Height = 120

Teraz możesz używać właściwości i metod obiektu kodu kreskowego, jak chcesz:

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

Kontrolkę można łatwo usunąć z makra/slajdu, jeśli nie jest już potrzebna, na przykład po wydrukowaniu:

 ab.Delete

Wskazówka: Jeśli konieczne jest, aby system Windows przetwarzał nadchodzące zdarzenia (często nazywane "KeepWindowsAlive") w makrze, można to wymusić za pomocą następującej funkcji VBA:

DoEvents

Może to być konieczne, np. jeśli kontrolka musi narysować się jako nowa.