Lição 15: O Objeto Workbook – Propriedades e Métodos – Parte II

Nesse lição veremos algumas das principais propriedades do objeto Workbook.

 

Propriedade Application:

               

Quando usada sem um qualificador de objeto, essa propriedade retorna um objeto Application representando o aplicativo Microsoft Excel. Quando usada com um qualificador de objeto, essa propriedade retorna um objeto Application representando o criador do objeto especificado (você pode usar essa propriedade com um objeto de Automação OLE para retornar o aplicativo desse objeto). Somente leitura.

 

Exemplo da propriedade Application:

 

Este exemplo exibe uma mensagem sobre o aplicativo que criou a variável myObject.

 

Set myObject = ActiveWorkbook

If myObject.Application.Value = "Microsoft Excel" Then

    MsgBox "É um objeto do Microsoft Excel!!!"

Else

    MsgBox "Não é um objeto do Microsoft Excel!!!"

End If

 

Propriedade Count:

               

Retorna o número de objetos da coleção. Long somente leitura.

 

Comentários: Para fontes de dados OLAP, somente os campos visíveis em um relatório de tabela dinâmica são contados.

 

Exemplo da propriedade Count:

 

Este exemplo exibe o número de colunas na faixa selecionada na planilhaSheet1. O código também testa se a seleção é de área múltipla; se for o caso, o código fará um loop pelas áreas da seleção de múltiplas áreas.

 

Worksheets("Sheet1").Activate

areaCount = Selection.Areas.Count

If areaCount <= 1 Then

    MsgBox "A seleção contém " & Selection.Columns.Count & " colunas."

Else

    For i = 1 To areaCount

        MsgBox "Area " & i & " da selção contém " & _

            Selection.Areas(i).Columns.Count & " colunas."

    Next i

End If 

 

Este exemplo faz do último caractere da célula A1 um caractere sobrescrito.

 

n = Worksheets("Sheet1").Range("A1").Characters. Count

Worksheets("Sheet1").Range("A1").Characters(n, 1).Font.Superscript = True

 

Propriedade Item (coleção Workbooks):

               

Retorna um único objeto Workbook de uma coleção Workbooks.

 

Sintaxe:

 

expressão.Item(Index)

 

expressão:  Obrigatória. Uma expressão que retorne um objeto Workbooks.

 

Index : Variant obrigatória. O nome ou número de índice da pasta de trabalho.

 

Exemplo da propriedade Item (coleção Workbooks):

 

Este exemplo define a variável pt com a pasta de trabalho de myaddin.xla.

 

Set wb = Workbooks.Item("myaddin.xla") 

 

Propriedade Parent:

               

Retorna o objeto pai do objeto especificado. Somente leitura.

 

Exemplo da propriedade Parent:

 

Este exemplo exibe o nome do gráfico que contém myAxis.

 

Set myAxis = Charts(1).Axes(xlValue)

MsgBox myAxis.Parent.Name

Todos os direitos reservados: ® Júlio Battisti, 2002