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

Com o Visual Basic for Applications (VBA), é possível resolver facilmente diversos problemas. Aqui, apresentamos resumidamente como integrar um código de barras em uma apresentação do PowerPoint utilizando o VBA, como utilizá-lo e como removê-lo.

A seguir, apresentamos como inserir o controle ActiveBarcode no slide ativo utilizando VBA:
Neste exemplo, o código de barras é colocado na posição e tamanho especificados no slide. O objeto pode então ser acessado 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 é possível 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 é possível utilizar as propriedades e métodos do objeto código de barras conforme desejar:

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

É possível remover facilmente o controle da macro/slide caso não seja mais necessário, por exemplo, após a impressão:

 ab.Delete

Dica: Se for necessário que o Windows processe eventos futuros (frequentemente referidos como KeepWindowsAlive) dentro de uma macro, é possível forçar isso utilizando a seguinte função VBA:

DoEvents

Isso pode ser necessário, por exemplo, se o controle precisar ser redesenhado.