Classe Comment (PowerPoint VBA)

A classe Comment representa um comentário em um dado slide ou intervalo de slides. O objeto Comment é membro do objeto da coleção Comments.

O procedimento principal da classe Comment é Delete

Set

Para usar uma variável de classe Comment, ela primeiro precisa ser instanciada por exemplo

Dim cmm as Comment
Set cmm = Application.Selection.Comments(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Comment: Comments.Item, Comments.Add2, Replies, Slide.Comments e SlideRange.Comments

Métodos

Este é o método principal da classe Comment

Delete - Exclui o objeto comment especificado.

cmm.Delete

Estes são os principais métodos da classe

Comments.Add2 - Substitui o método Add oculto. Retorna um objeto Comment que representa um novo comentário adicionado a um slide. Para obter mais informações sobre comentários modernos, consulte comentários modernos no PowerPoint.

Dim strAuthor As String: strAuthor = 
Dim strAuthorInitials As String: strAuthorInitials = 
Dim strText As String: strText = 
Dim strProviderID As String: strProviderID = 
Dim strUserID As String: strUserID = 
Dim cmms As Comments: Set cmms = 
Dim cmmAdd2 As Comment
Set cmmAdd2 = cmms.Add2(Left:=, Top:=, Author:=strAuthor, AuthorInitials:=strAuthorInitials, Text:=strText, ProviderID:=strProviderID, UserID:=strUserID)

Propriedades

Author Retorna uma cadeia de caracteres que representa o autor para um objeto Comment especificado. Somente leitura.

Dim strAuthor As String
strAuthor = cmm.Author

AuthorIndex Retorna um Long representando o número de índice de um comentário para um determinado autor. O primeiro comentário para um determinado autor tem um número de índice 1, o segundo comentário tem um número de índice 2. Somente leitura.

Dim lngAuthorIndex As Long
lngAuthorIndex = cmm.AuthorIndex

AuthorInitials Retorna as iniciais do autor como uma cadeia de caracteres somente leitura para um objeto comment especificado. Somente leitura.

Dim strAuthorInitials As String
strAuthorInitials = cmm.AuthorInitials

Collapsed Retorna se as respostas a um comentário são mostradas expandidas ou ocultas (recolhidas). Somente pronto.

Dim booCollapsed As Boolean
booCollapsed = cmm.Collapsed

DateTime Retorna a data e a hora em que um comentário foi criado.

Dim dtDateTime As Date
dtDateTime = cmm.DateTime

Left Retorna um único que representa a distância em pontos a partir da borda esquerda do comentário até a borda esquerda do slide. Somente leitura.

Dim sngLeft As Single
sngLeft = cmm.Left

Parent Retorna o objeto pai do objeto especificado.

Dim objParent As Object
Set objParent = cmm.Parent

ProviderID Retorna uma cadeia de caracteres que representa a ID do serviço que fornece informações de contato. Somente leitura.

Dim strProviderID As String
strProviderID = cmm.ProviderID

Replies Retorna uma coleção Comments de objetos comment que são filhos do comentário especificado. Somente leitura.

Dim cmmsReplies As Comments
Set cmmsReplies = cmm.Replies

Text Retorna uma cadeia de caracteres que representa o texto em um comentário. Somente leitura.

Dim strText As String
strText = cmm.Text

TimeZoneBias Retorna uma cadeia de caracteres que especifica o ajuste do fuso horário local do contato. Somente leitura.

Dim lngTimeZoneBias As Long
lngTimeZoneBias = cmm.TimeZoneBias

Top Retorna um único que representa a distância em pontos a partir da borda esquerda do comentário até a borda esquerda do slide. Somente leitura.

Dim sngTop As Single
sngTop = cmm.Top

UserID Retorna uma cadeia de caracteres que representa a ID de usuário do contato. Somente leitura.

Dim strUserID As String
strUserID = cmm.UserID

Comments.Count Retorna o número de objetos na coleção especificada. Somente leitura.

Dim cmms As Comments: Set cmms = 
Dim lngCount As Long
lngCount = cmms.Count

Comments.Parent Retorna o objeto pai do objeto especificado.

Dim cmms As Comments: Set cmms = 
Dim objParent As Object
Set objParent = cmms.Parent