PowerPoint
Objetos de código de barras com VBA

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

Você pode facilmente resolver muitas coisas com o VisualBasic for Applications (VBA). Aqui vamos mostrar-lhe brevemente, como integrar o objeto de código de barras em uma apresentação do PowerPoint usando o VBA, usá-lo e removê-lo novamente:

Isso é como inserir o controle ActiveBarcode no slide ativo usando o VBA:
Neste exemplo, o código de barras é colocado na posição e no tamanho especificados no slide. 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 você pode alterar as propriedades padrão (por exemplo, altura, largura) do objeto OLE usando as propriedades da variável "AB":

ab.Width = 200
ab.Height = 120

Você pode acessar as Propriedades e métodos do objeto de código de barras usando a propriedade "OLEFormat. Object". Aqui estão alguns exemplos:

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

Se você não precisar mais do controle dentro da macro/slide (por exemplo, após a impressão), você pode removê-lo facilmente:

 ab.Delete

Dica: se for necessário que o Windows processe eventos pendentes em uma macro entre (geralmente também chamado de "KeepWindowsAlive"), você pode forçá-lo usando a seguinte função VBA:

DoEvents

Isso pode ser necessário, por exemplo, se o controle precisa redesenhar propriamente dito.