Propriedade TextFrame2.Creator (Office)

Retorna um inteiro de 32 bits que indica o aplicativo no qual esse objeto foi criado. Somente leitura. Longo.

Sintaxe

expression.Creator

expressão Uma expressão que devolve um objeto TextFrame2 .

Exemplo

Este exemplo exibe uma mensagem sobre o criador de uma pasta de trabalho do Excel. Neste exemplo, o número hexadecimal 5843454C é equivalente à cadeia XCEL, que indica que este objeto foi criado no Excel.

Sub FindCreator() 
 
 Dim myObject As Excel.Workbook 
 Set myObject = ActiveWorkbook 
 If myObject.TextFrame2.Creator = &h5843454c Then 
 MsgBox "This is a Microsoft Excel object." 
 Else 
 MsgBox "This is not a Microsoft Excel object." 
 End If 
 
End Sub 

Confira também

• Membros do objeto TextFrame2

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.