Classe BulletFormat (PowerPoint VBA)
A classe BulletFormat representa formatação de marcador.
Para usar uma variável de classe BulletFormat, ela primeiro precisa ser instanciada por exemplo
Dim bft as BulletFormat
Set bft = ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet
As variáveis de classe BulletFormat podem ser definidas usando o procedimento ParagraphFormat.Bullet.
Character
Retorna ou define o valor do caractere Unicode usado para marcadores no texto especificado. Leitura/gravação.
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.Character = 8226
Font
Retorna um objeto Font que representa a formatação de caractere. Somente leitura.
Dim fntFont As Font
Set fntFont = ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.Font
Number
Retorna o número de marcador de um parágrafo quando a propriedade Type do objeto BulletFormat é definida como ppBulletNumbered. Somente leitura.
Se essa propriedade for consultada para vários parágrafos com números diferentes, o valor ppBulletMixed será retornado. Se essa propriedade é consultada para um parágrafo com um tipo diferente ppBulletNumbered, ocorrerá um erro de tempo de execução.
Dim lngNumber As Long
lngNumber = ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.Number
Picture
Define o arquivo gráfico a ser usado para marcadores em uma lista com marcadores quando a propriedade Type do objeto BulletFormat estiver definida como ppBulletPicture.
Os arquivos de gráficos válidos incluem arquivos com as seguintes extensões: .bmp, .cdr, .cgm, .drw, .dxf, .emf, .eps, .gif, .jpg, .jpeg, .pcd, .pct, .pcx, .pict, .png, .tga, .tiff, .wmf, e .wpg.
Picture (Picture)
RelativeSize
Retorna ou define o tamanho do marcador relativo ao tamanho do primeiro caractere de texto no parágrafo. Leitura/gravação.
O valor da propriedade RelativeSize pode ser um valor de ponto flutuante de 0,25 a 4, indicando que o tamanho do marcador pode ser de 25 até 400 por cento do tamanho do caractere de texto.
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.RelativeSize = 1.25
StartValue
Retorna ou define o valor inicial de uma lista com marcadores quando a propriedade Type do objeto BulletFormat é definida como ppBulletNumbered. Leitura/gravação.
O valor da propriedade StartValue deve estar no intervalo de 1 a 32767.
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.StartValue = 5
Style
Retorna ou define o estilo de marcador. Leitura/gravação. Aqui você pode encontrar os valores possíveis para
Algumas das constantes PpNumberedBulletStyle podem não estar disponíveis para você, dependendo do suporte a idioma (Português do Brasil, por exemplo) que você selecionou ou instalou.
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.Style = ppBulletAlphaLCParenBoth
Type
Representa o tipo de marcador. Leitura/gravação. Os valores de retorno possíveis são ppBulletMixed - Marcadores mistos, ppBulletNone - Sem marcadores, ppBulletNumbered - Marcadores numerados, ppBulletPicture - Marcadores com uma imagem, ppBulletUnnumbered - Marcadores sem numeração.
O valor da propriedade Type pode ser uma destas constantes PpBulletType .
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.Type = ppBulletMixed
UseTextColor
Determina se os marcadores especificados serão definidos com a cor do primeiro caractere de texto do parágrafo. Leitura/gravação.
Você não pode definir explicitamente essa propriedade como MsoFalse. Definir a cor do formato de marcador (usando a propriedade Color do objeto Font ) define essa propriedade como msoFalse. Quando UseTextColor é msoFalse, você poderá defini-la como msoTrue para redefinir o formato de marcador para a cor padrão. O valor da propriedade UseTextColor pode ser uma destas constantes MsoTriState .
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.UseTextColor = msoTrue
UseTextFont
Determina se os marcadores especificados são definidos com a fonte do primeiro caractere de texto do parágrafo. Leitura/gravação.
Você não pode definir explicitamente essa propriedade como MsoFalse. A definição da fonte de formato do marcador (usando a propriedade Name do objeto Font ) define essa propriedade como msoFalse. Quando UseTextFont é msoFalse, você poderá defini-la como msoTrue para redefinir o formato de marcador para a fonte padrão. O valor da propriedade UseTextFont pode ser uma destas constantes MsoTriState .
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet.UseTextFont = msoTrue