Skip to main content
conteúdo editado
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

A propriedade .HasTextFrame pode ser usadousada num loop em todas apresentações e shapes.

A propriedade .HasTextFrame pode ser usado num loop em todas apresentações e shapes.

A propriedade .HasTextFrame pode ser usada num loop em todas apresentações e shapes.

Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

#Caixas de Texto Se você deseja obter somente de caixas de texto como da imagem abaixo:

Teste

A propriedade .HasTextFrame pode ser usado num loop em todas apresentações e shapes.

###Código Dim sld As Slide Dim shp As Shape

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes

            If shp.HasTextFrame Then
                Debug.Print "Texto: " & shp.TextFrame2.TextRange & " " _
                ; "ID: " & shp.Id & " " _
                ; "Nome: " & shp.Name
            End If

Next shp
Next sld

#Todos os Shapes

Já para todos os Shapes da apresentação, você pode obter o Tipo, ID e Nome.

###Código

Dim sld As Slide
Dim shp As Shape
Dim sr As Series
Dim txt As Chart

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
                Debug.Print "Tipo: " & shp.Type & " " _
                ; "ID: " & shp.Id & " " _
                ; "Nome: " & shp.Name
Next shp
Next sld

#Lista de Tipos

+----------------------+-------+----------------------------------+
|         Nome         | Valor |            Descrição             |
+----------------------+-------+----------------------------------+
| msoAutoShape         |     1 | AutoForma.                       |
| msoCallout           |     2 | Texto Explicativo.               |
| msoCanvas            |    20 | Tela.                            |
| msoChart             |     3 | Gráfico.                         |
| msoComment           |     4 | Comentário.                      |
| msoContentApp        |    27 | Suplemento de conteúdo do Office |
| msoDiagram           |    21 | Diagrama.                        |
| msoEmbeddedOLEObject |     7 | Objeto OLE incorporado.          |
| msoFormControl       |     8 | Controle de formulário.          |
| msoFreeform          |     5 | Forma Livre.                     |
| msoGraphic           |    28 | Elemento gráfico                 |
| msoGroup             |     6 | Grupo.                           |
| msoIgxGraphic        |    24 | Gráfico SmartArt                 |
| msoInk               |    22 | Tinta                            |
| msoInkComment        |    23 | Comentário à tinta               |
| msoLine              |     9 | Linha                            |
| msoLinkedGraphic     |    29 | Gráfico vinculado                |
| msoLinkedOLEObject   |    10 | Objeto OLE vinculado             |
| msoLinkedPicture     |    11 | Imagem vinculada                 |
| msoMedia             |    16 | Mídia                            |
| msoOLEControlObject  |    12 | Objeto de controle OLE           |
| msoPicture           |    13 | Imagem                           |
| msoPlaceholder       |    14 | Espaço reservado                 |
| msoScriptAnchor      |    18 | Âncora de script                 |
| msoShapeTypeMixed    |    -2 | Tipo de forma misto              |
| msoTable             |    19 | Tabela                           |
| msoTextBox           |    17 | Caixa de texto                   |
| msoTextEffect        |    15 | Efeito de texto                  |
| msoWebVideo          |    26 | Vídeo da Web                     |
+----------------------+-------+----------------------------------+

Obs. 1: Veja A documentação de Shapes para mais informações

Obs. 2: Para visualizar o que é impresso com o comando Debug.Print, é preciso habilitar a janela de Verificação Imediata.