Utilizzo e automazione dei codici a barre con VBA in PowerPoint

Con Visual Basic for Applications (VBA) è possibile risolvere facilmente molti problemi. Qui vi mostriamo brevemente come integrare un codice a barre in una presentazione di PowerPoint utilizzando VBA, come utilizzarlo e come rimuoverlo.

Ecco come inserire il controllo ActiveBarcode nella diapositiva attiva utilizzando VBA:
In questo esempio, il codice a barre viene posizionato nella posizione e nelle dimensioni specificate nella diapositiva. L'oggetto può quindi essere indirizzato tramite 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")

Ora è possibile modificare le proprietà standard (ad esempio, altezza e larghezza) dell'oggetto OLE utilizzando le proprietà della variabile ab:

ab.Width = 200
ab.Height = 120

Ora è possibile utilizzare le proprietà e metodi dell'oggetto codice a barre come si desidera:

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

È possibile rimuovere facilmente il controllo dalla macro/slide se non è più necessario, ad esempio dopo la stampa:

 ab.Delete

Suggerimento: se è necessario che Windows elabori gli eventi imminenti (spesso denominati "KeepWindowsAlive") all'interno di una macro, è possibile forzarli utilizzando la seguente funzione VBA:

DoEvents

Questo può essere necessario, ad esempio se il Controllo deve disegnare se stesso in modo nuovo.