Custom shapes são formas personalizadas que podem ser criadas em softwares de apresentação como o Microsoft PowerPoint. No ambiente Windows, uma maneira eficaz de criar e manipular essas formas é através do uso de VBA (Visual Basic for Applications). A criação de custom shapes pode ser extremamente útil para personalizar apresentações, tornando-as mais atraentes e comunicativas. Este artigo irá demonstrar como utilizar VBA no PowerPoint para criar formas personalizadas.

Exemplos:

1. Criando um Custom Shape Básico: Para criar um custom shape básico no PowerPoint utilizando VBA, siga os passos abaixo:

   Sub CreateCustomShape()
      Dim slide As slide
      Dim shape As shape
   
      ' Adiciona um novo slide na apresentação
      Set slide = ActivePresentation.Slides.Add(1, ppLayoutBlank)
   
      ' Adiciona uma forma oval no slide
      Set shape = slide.Shapes.AddShape(msoShapeOval, 100, 100, 200, 100)
   
      ' Personaliza a forma
      With shape
          .Fill.ForeColor.RGB = RGB(255, 0, 0) ' Cor de preenchimento vermelho
          .Line.ForeColor.RGB = RGB(0, 0, 0) ' Cor da linha preta
          .Line.Weight = 2 ' Espessura da linha
      End With
   End Sub

2. Criando um Custom Shape Complexo: Para criar uma forma mais complexa, como um polígono personalizado, você pode usar o código abaixo:

   Sub CreateComplexShape()
      Dim slide As slide
      Dim shape As shape
      Dim pointsArray(1 To 5, 1 To 2) As Single
   
      ' Define os pontos do polígono
      pointsArray(1, 1) = 100: pointsArray(1, 2) = 100
      pointsArray(2, 1) = 200: pointsArray(2, 2) = 50
      pointsArray(3, 1) = 300: pointsArray(3, 2) = 100
      pointsArray(4, 1) = 250: pointsArray(4, 2) = 200
      pointsArray(5, 1) = 150: pointsArray(5, 2) = 200
   
      ' Adiciona um novo slide na apresentação
      Set slide = ActivePresentation.Slides.Add(1, ppLayoutBlank)
   
      ' Adiciona a forma poligonal no slide
      Set shape = slide.Shapes.AddPolyline(pointsArray)
   
      ' Personaliza a forma
      With shape
          .Fill.ForeColor.RGB = RGB(0, 255, 0) ' Cor de preenchimento verde
          .Line.ForeColor.RGB = RGB(0, 0, 255) ' Cor da linha azul
          .Line.Weight = 3 ' Espessura da linha
      End With
   End Sub