endeesfritpt

PowerPoint
Oggetti di codici a barre con VBA

Utilizzo e automazione dei codici a barre con VBA in PowerPoint

1

Puoi facilmente risolvere molte cose con VisualBasic, Applications Edition (VBA). Qui vi mostriamo brevemente, come integrare l'oggetto codice a barre in una presentazione di PowerPoint utilizzando VBA, usarlo, e rimuoverlo di nuovo:

Ecco come inserire il controllo ActiveBarcode nella diapositiva attiva utilizzando VBA:
In questo esempio, il codice a barre viene posizionato in corrispondenza della posizione e delle 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, larghezza) dell'oggetto OLE utilizzando le proprietà della variabile "ab":
ab.Width = 200
ab.Height = 120
È possibile accedere alle proprietà e ai metodi dell'oggetto codice a barre utilizzando la proprietà "OLEFormat.Object". Ecco alcuni esempi:
ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"
ab.OLEFormat.Object.Rotate = 90
Se il controllo non è più necessario all'interno della macro/diapositiva (ad esempio, dopo la stampa), è possibile rimuoverlo facilmente:
 ab.Delete
Suggerimento: Se è necessario per Windows elaborare gli eventi in sospeso in una macro in mezzo (spesso chiamata anche "KeepWindowsAlive"), è possibile forzare questo utilizzando la seguente funzione VBA:
DoEvents
Ciò può essere necessario, ad esempio, se il controllo deve ridisegnare se stesso.