Usando e automatizando códigos de barras com VBA em PowerPoint

Com o Visual Basic for Applications (VBA), pode resolver facilmente muitos problemas. Aqui, mostramos-lhe brevemente como integrar um código de barras numa apresentação do PowerPoint utilizando o VBA, como utilizá-lo e como removê-lo.

Eis como inserir o Controlo ActiveBarcode no diapositivo ativo utilizando o VBA:
Neste exemplo, o código de barras é colocado na posição e tamanho especificados no diapositivo. O objeto pode então ser endereçado através de 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")

Agora pode alterar as propriedades padrão (por exemplo, altura, largura) do objeto OLE utilizando as propriedades da variável ab:

ab.Width = 200
ab.Height = 120

Agora pode utilizar as properties e methods do objeto código de barras como desejar:

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

O controlo pode ser facilmente removido da macro/slide se já não for necessário, por exemplo, após a impressão:

 ab.Delete

Sugestão: Se for necessário que o Windows processe eventos futuros (frequentemente designados por "KeepWindowsAlive") numa macro, pode forçá-lo utilizando a seguinte função VBA:

DoEvents

Isto pode ser necessário, por exemplo, se o Controlo tiver de se desenhar de novo.