Classe Application (Excel VBA)

A classe Application representa o aplicativo inteiro do Microsoft Excel.

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Cell with its procedures ActiveCell, CellDragAndDrop, Cells, EditDirectlyInCell, LargeOperationCellThousandCount e ThisCell
Print with its procedures ActivePrinter e PrintCommunication
DDE with its procedures DDEAppReturnCode, DDEExecute, DDEInitiate, DDEPoke, DDERequest e DDETerminate
Enable with its procedures EnableAutoComplete, EnableCancelKey, EnableCheckFileExtensions, EnableEvents, EnableLargeOperationAlert, EnableLivePreview, EnableMacroAnimations e EnableSound
Name with its procedures GetOpenFilename, GetSaveAsFilename, OrganizationName, UserName e WarnOnFunctionNameConflict
Email with its procedures MailLogoff, MailLogon, MailSession e MailSystem

Métodos

Estes são os principais métodos da classe

ActivateMicrosoftApp - Ativa um aplicativo Microsoft. Se o aplicativo já estiver sendo executado, este método ativará o aplicativo em execução. Se o aplicativo não estiver sendo executado, este método iniciará uma nova ocorrência do aplicativo.

AddCustomList - Adiciona uma lista personalizada para preenchimento automático personalizado e/ou classificação personalizada.

Calculate - Calcula todas as pastas de trabalho abertas, uma planilha específica em uma pasta de trabalho ou um intervalo de células especificado em uma planilha, como mostrado na tabela a seguir.

CalculateFull - Força um cálculo completo dos dados em todas as pastas de trabalho abertas.

CalculateFullRebuild - Em todas as pastas de trabalho abertas, força um cálculo completo dos dados e recria as dependências.

CalculateUntilAsyncQueriesDone - Executa todas as consultas pendentes para fontes de dados OLEDB e OLAP.

CentimetersToPoints - Converte uma medida de centímetros para pontos um ponto equivale a 0,035 centímetros.

CheckAbort - Interrompe o recálculo em um aplicativo do Microsoft Excel.

CheckSpelling - Verifica a ortografia de uma única palavra.

ConvertFormula - Converte referências a células em uma fórmula entre os estilos de referência A1 e L1C1, e entre referências relativas e absolutas.

DeleteCustomList - Exclui uma lista personalizada.

DisplayXMLSourcePane - Abre o painel de tarefas Código-fonte XML e exibe o mapa XML especificado pelo argumento XmlMap.

DoubleClick - Equivalente a clicar duas vezes na célula ativa.

Evaluate - Converte um nome do Microsoft Excel em um objeto ou um valor.

FindFile - Exibe a caixa de diálogo Abrir.

GetCustomListContents - Retorna uma lista personalizada uma matriz de sequências de caracteres.

GetCustomListNum - Retorna o número da lista personalizada para uma matriz de sequências de caracteres. Você pode usar esse método tanto com listas internas como com listas personalizadas.

GetPhonetic - Retorna o texto fonético japonês da sequência de caracteres de texto especificada. Este método está disponível somente se você tiver selecionado ou instalado o suporte ao idioma japonês para o Microsoft Office.

Goto - Seleciona qualquer intervalo ou procedimento do Visual Basic em qualquer pasta de trabalho e ativa essa pasta de trabalho se ela ainda não estiver ativa.

Help - Exibe um tópico de Ajuda.

InchesToPoints - Converte uma medida de polegadas para pontos.

InputBox - Exibe uma caixa de diálogo de entrada do usuário. Retorna informações inseridas na caixa de diálogo.

Intersect - Retorna um objeto Range que representa a interseção retangular de dois ou mais intervalos. Se um ou mais intervalos de uma planilha diferente forem especificados, um erro será retornado.

MacroOptions - Corresponde às opções da caixa de diálogo Opções de Macro. Você também pode usar esse método para exibir uma função definida pelo usuário UDF em uma categoria interna ou nova dentro da caixa de diálogo Inserir função .

OnKey - Executa um procedimento especificado quando uma tecla ou uma combinação de teclas em particular é pressionada.

OnRepeat - Define o item REPEAT e o nome do procedimento que será executado se você escolher o comando repetir após executar o procedimento que define essa propriedade.

OnTime - Agenda um procedimento para ser executado em um momento especificado no futuro em uma hora específica do dia ou após um período específico de tempo.

OnUndo - Define o texto do comando desfazer e o nome do procedimento que será executado se você escolher o comando desfazer após executar o procedimento que define essa propriedade.

Quit - Fecha o Microsoft Excel.

RecordMacro - Grava código se o gravador de macro estiver ativado.

RegisterXLL - Carrega um recurso de código XLL e registra automaticamente as funções comandos contidos no recurso.

Repeat - Repete a última ação na interface do usuário.

Run - Executa uma macro ou chama uma função. Pode ser usada para executar uma macro escrita em Visual Basic ou no idioma da macro do Microsoft Excel, ou para executar uma função em uma DLL ou XLL.

SendKeys - Envia pressionamentos de teclas para o aplicativo ativo.

SharePointVersion - Retorna o número da versão das instâncias do SharePoint Foundation em execução no site para a URL especificada.

Undo - Cancela a última ação na interface do usuário.

Union - Retorna a união de dois ou mais intervalos.

Volatile - Marca uma função definida pelo usuário como volátil. Uma função volátil deverá ser recalculada sempre que o cálculo ocorrer em qualquer célula da planilha. Uma função não volátil só será recalculada quando as variáveis de entrada forem alteradas. Esse método não terá efeito se não estiver dentro de uma função definida pelo usuário usada para calcular uma célula da planilha.

Wait - Pausa uma macro em execução até um período especificado. Retorna True se a hora especificada tiver chegado.

Propriedades

ActiveChart Retorna um objeto Chart que representa o gráfico ativo seja um gráfico incorporado ou uma planilha de gráfico. Um gráfico inserido é considerado ativo quando está selecionado ou ativado. Quando nenhum gráfico está ativo, esta propriedade retorna Nothing.

Dim chrActiveChart As Chart
Set chrActiveChart = ActiveChart

ActiveEncryptionSession Retorna um Long que representa a sessão de criptografia associada ao documento ativo. Somente leitura.

Dim lngActiveEncryptionSession As Long
lngActiveEncryptionSession = Application.ActiveEncryptionSession

ActiveProtectedViewWindow Retorna um objeto ProtectedViewWindow que representa a janela ativa do Modo de exibição protegido a janela na parte superior. Retorna Nothing se não houver nenhuma janela Modo de Exibição Protegido aberta. Somente leitura.

Dim pvwActiveProtectedViewWindow As ProtectedViewWindow
Set pvwActiveProtectedViewWindow = Application.ActiveProtectedViewWindow

ActiveSheet Retorna um objeto que representa a planilha ativa a planilha na parte superior na pasta de trabalho ativa ou na janela ou pasta de trabalho especificada. Retorna Nothing se nenhuma planilha estiver ativa.

Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveSheet

ActiveWindow Retorna um objeto Window que representa a janela ativa do Excel a janela na parte superior. Retorna Nothing se não houver janelas abertas. Somente leitura.

Dim wndActiveWindow As Window
Set wndActiveWindow = ActiveWindow

ActiveWorkbook Retorna um objeto Workbook que representa a pasta de trabalho na janela ativa a janela na parte superior. Retornará Nothing se não houver janelas abertas ou se a janela Informações ou a janela Área de Transferência for a janela ativa. Somente leitura.

Dim wbActiveWorkbook As Workbook
Set wbActiveWorkbook = ActiveWorkbook

AddIns Retorna uma coleção AddIns que representa todos os suplementos listados na caixa de diálogo suplementos comandosuplementos, na guia desenvolvedor . Somente leitura.

Dim aisAddIns As AddIns
Set aisAddIns = AddIns

AddIns2 Retorna uma coleção AddIns2 que representa todos os suplementos que estão disponíveis no momento ou abertos no Microsoft Excel, independentemente de estarem ou não instalados. Somente leitura.

Dim ai2AddIns2 As AddIns2
Set ai2AddIns2 = Application.AddIns2

AlertBeforeOverwriting True se o Microsoft Excel exibir uma mensagem antes de substituir células não vazias durante um operação de edição arrastar e soltar. Boolean de leitura/gravação.

Application.AlertBeforeOverwriting = True

AltStartupPath Retorna ou define o nome da pasta inicial alternativa. Cadeia de caracteres de leitura/gravação.

Application.AltStartupPath =

AlwaysUseClearType Retorna ou define um Boolean que representa se ClearType deve ser usada para exibir fontes no menu, na faixa de opções e no texto da caixa de diálogo. Boolean de leitura/gravação.

Application.AlwaysUseClearType = True

ArbitraryXMLSupportAvailable Retorna um valor Boolean que indica se os recursos XML no Microsoft Excel estão disponíveis. Somente leitura.

Dim booArbitraryXMLSupportAvailable As Boolean
booArbitraryXMLSupportAvailable = Application.ArbitraryXMLSupportAvailable

AskToUpdateLinks True se o Microsoft Excel solicita ao usuário para atualizar links ao abrir arquivos com links. False se os links são atualizados automaticamente sem nenhuma caixa de diálogo. Boolean de leitura/gravação.

Application.AskToUpdateLinks = True

Assistance Retorna um objeto IAssistance para o Microsoft Excel que representa o Visualizador da ajuda do Microsoft Office. Somente leitura.

Dim iaeAssistance As Office.IAssistance
Set iaeAssistance = Application.Assistance

AutoCorrect Retorna um objeto AutoCorrect que representa os atributos de AutoCorreção do Microsoft Excel. Somente leitura.

Dim actAutoCorrect As AutoCorrect
Set actAutoCorrect = Application.AutoCorrect

AutoFormatAsYouTypeReplaceHyperlinks True padrão se o Microsoft Excel formatar automaticamente os hiperlinks à medida que você digita. False se o Excel não formatar hiperlinks automaticamente à medida que você digita. Boolean de leitura/gravação.

Application.AutoFormatAsYouTypeReplaceHyperlinks = True

AutomationSecurity Retorna ou define uma constante MsoAutomationSecurity que representa o modo de segurança que o Microsoft Excel usa ao abrir arquivos por programação. Leitura/gravação.

Application.AutomationSecurity = msoAutomationSecurityForceDisable

AutoPercentEntry True se as entradas em células formatadas como porcentagens não forem automaticamente multiplicadas por 100 assim que forem inseridas. Boolean de leitura/gravação.

Application.AutoPercentEntry = True

AutoRecover Retorna um objeto AutoRecover , que faz o backup de todos os formatos de arquivo em um intervalo de tempo.

Dim arrAutoRecover As AutoRecover
Set arrAutoRecover = Application.AutoRecover

Build Retorna o número da compilação do Microsoft Excel. Long somente leitura.

Dim lngBuild As Long
lngBuild = Application.Build

CalculateBeforeSave True se as pastas de trabalho são calculadas antes de serem salvas em disco se a propriedade Calculation estiver definida como xlManual. Essa propriedade é preservada mesmo quando você altera a propriedade Calculation. Boolean de leitura/gravação.

Application.CalculateBeforeSave = True

Calculation Retorna ou define um valor XlCalculation que representa o modo de cálculo.

Application.Calculation = xlCalculationAutomatic

CalculationInterruptKey Define ou retorna uma constante XlCalculationInterruptKey que especifica a chave que pode interromper o Microsoft Excel ao executar cálculos. Leitura/gravação.

Application.CalculationInterruptKey = xlAnyKey

CalculationState Retorna uma constante XlCalculationState que indica o estado de cálculo do aplicativo, para qualquer cálculo que esteja sendo executado no Microsoft Excel. Somente leitura.

Dim xcsCalculationState As XlCalculationState
xcsCalculationState = Application.CalculationState

CalculationVersion Retorna um número cujos quatro dígitos da direita constituem o número de versão do mecanismo de cálculo secundário e cujos outros dígitos à esquerda constituem a versão principal do Microsoft Excel. Long somente leitura.

Dim lngCalculationVersion As Long
lngCalculationVersion = Application.CalculationVersion

Caller Retorna informações sobre como o Visual Basic foi chamado para obter mais informações, consulte a seção Comentários.

Dim objCaller As Object
Set objCaller = Application.Caller

CanPlaySounds Essa propriedade não deve ser usada. As notas sonoras foram removidas do Microsoft Excel.

Dim booCanPlaySounds As Boolean
booCanPlaySounds = Application.CanPlaySounds

CanRecordSounds Essa propriedade não deve ser usada. As notas sonoras foram removidas do Microsoft Excel.

Dim booCanRecordSounds As Boolean
booCanRecordSounds = Application.CanRecordSounds

Caption Retorna ou define um valor String que representa o nome que aparece na barra de título da janela principal do Microsoft Excel.

Application.Caption =

ChartDataPointTrack True faz com que todos os gráficos em documentos recém-criados usem o comportamento de controle de referência de célula.

Application.ChartDataPointTrack = True

Charts Retorna uma coleção Sheets que representa todas as planilhas de gráfico na pasta de trabalho ativa.

Dim shtsCharts As Sheets
Set shtsCharts = Charts

ClipboardFormats Retorna os formatos atualmente na Área de transferência, como uma matriz de valores numéricos. Para determinar se um formato específico está na Área de transferência, compare cada elemento na matriz com a constante apropriada listada na seção Comentários. Somente leitura .

Dim varClipboardFormats As Variant
varClipboardFormats = Application.ClipboardFormats

ClusterConnector Retorna ou define o nome do conector de cluster de computação de alto desempenho HPC usado para executar funções definidas pelo usuário em suplementos XLL. leitura/gravação.

Application.ClusterConnector =

Columns Retorna um objeto Range que representa todas as colunas na planilha ativa. Se o documento ativo não for uma planilha, a propriedade Columns falhará.

Dim rngColumns As Range
Set rngColumns = Columns

COMAddIns Retorna a coleção COMAddIns para o Microsoft Excel, que representa os suplementos com instalados no momento. somente leitura.

Dim comsCOMAddIns As Office.COMAddIns
Set comsCOMAddIns = Application.COMAddIns

CommandBars Retorna um objeto CommandBars que representa as barras de comandos do Microsoft Excel. Somente leitura.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = CommandBars

ConstrainNumeric True se o reconhecimento de texto manuscrito estiver limitado a somente números e pontuação. Boolean de leitura/gravação.

Application.ConstrainNumeric = True

ControlCharacters True se o Microsoft Excel exibir caracteres de controle para idiomas escritos da direita para a esquerda. Boolean de leitura/gravação.

Application.ControlCharacters = True

CopyObjectsWithCells True se os objetos forem cortados, copiados, extraídos e classificados com células. Boolean de leitura/gravação.

Application.CopyObjectsWithCells = True

Cursor Retorna ou define a aparência do ponteiro do mouse no Microsoft Excel. Leitura/gravação XlMousePointer.

Application.Cursor = xlDefault

CursorMovement Retorna ou define um valor que indica se um cursor visual ou lógico é usado. Pode ser uma das seguintes constantes: xlVisualCursor ou xlLogicalCursor. Long de leitura/gravação.

Application.CursorMovement =

CustomListCount Retorna o número de listas personalizadas definidas incluindo as listas internas. Long somente leitura.

Dim lngCustomListCount As Long
lngCustomListCount = Application.CustomListCount

CutCopyMode Retorna ou define o status do modo Recortar ou Copiar. Pode ser true, falseou uma constante XLCutCopyMode , conforme mostrado nas tabelas a seguir. Long de leitura/gravação.

Application.CutCopyMode = xlCopy

DataEntryMode Retorna ou define o modo Entrada de Dados, como mostrado na tabela seguinte. Quando em modo Entrada de Dados, você só pode inserir dados nas células não protegidas do intervalo atualmente selecionado. Long de leitura/gravação.

Application.DataEntryMode = xlOff

DecimalSeparator Configura ou retorna o caractere usado para o separador decimal como uma String. Leitura/gravação.

Application.DecimalSeparator = "."

DefaultFilePath Retorna ou define o caminho padrão que o Microsoft Excel usa ao abrir arquivos. String de leitura/gravação.

Application.DefaultFilePath =

DefaultPivotTableLayoutOptions

Dim dptsDefaultPivotTableLayoutOptions As DefaultPivotTableLayoutOptions
Set dptsDefaultPivotTableLayoutOptions = Application.DefaultPivotTableLayoutOptions

DefaultSaveFormat Retorna ou define o formato padrão para salvar arquivos. Para obter uma lista de constantes válidas, consulte a propriedade FileFormat. Long de leitura/gravação.

Application.DefaultSaveFormat = xlWorkbook

DefaultSheetDirection Retorna ou define a direção padrão em que o Microsoft Excel exibe novas janelas e planilha. Pode ser uma das seguintes constantes XlReadingOrder : xlRTL da direita para a esquerda ou xlLTR (da esquerda para a direita). Long de leitura/gravação.

Application.DefaultSheetDirection = xlContext

DefaultWebOptions Retorna o objeto DefaultWebOptions que contém atributos globais no nível do aplicativo usados pelo Microsoft Excel sempre que você salva um documento como uma página da Web ou abre uma página da Web. Somente leitura.

Dim dwosDefaultWebOptions As DefaultWebOptions
Set dwosDefaultWebOptions = Application.DefaultWebOptions

DeferAsyncQueries Obtém ou define se as consultas assíncronas a fontes de dados OLAP são executadas quando uma planilha é calculada pelo código VBA. Boolean de leitura/gravação.

Application.DeferAsyncQueries = True

Dialogs Retorna uma coleção Dialogs que representa todas as caixas de diálogo internas. Somente leitura.

Dim dlgsDialogs As Dialogs
Set dlgsDialogs = Application.Dialogs

DisplayAlerts True se o Microsoft Excel exibir determinados alertas e mensagens durante a execução de uma macro. Boolean de leitura/gravação.

Application.DisplayAlerts = True

DisplayClipboardWindow Retorna True se a Área de transferência do Microsoft Office puder ser exibida. Boolean de leitura/gravação.

Application.DisplayClipboardWindow = True

DisplayCommentIndicator Retorna ou define a maneira como as células exibem comentários e indicadores. Pode ser uma das constantes XlCommentDisplayMode .

Application.DisplayCommentIndicator = xlCommentAndIndicator

DisplayDocumentActionTaskPane Defina como true para exibir o painel de tarefas ações do documento ; Defina como false para ocultar o painel de tarefas ações do documento . Boolean de leitura/gravação.

Application.DisplayDocumentActionTaskPane = True

DisplayFormulaAutoComplete Obtém ou define se uma lista de funções relevantes e nomes definidos deve ser exibida ao criar fórmulas para células. Boolean de leitura/gravação.

Application.DisplayFormulaAutoComplete = True

DisplayFormulaBar True se a barra de fórmulas estiver visível. Boolean de leitura/gravação.

Application.DisplayFormulaBar = True

DisplayFullScreen True se o Microsoft Excel estiver no modo de tela inteira. Boolean de leitura/gravação.

Application.DisplayFullScreen = True

DisplayFunctionToolTips True se as dicas de ferramentas de função puderem ser exibidas. Boolean de leitura/gravação.

Application.DisplayFunctionToolTips = True

DisplayInsertOptions True se o botão Opções de inserção deve ser exibido. Boolean de leitura/gravação.

Application.DisplayInsertOptions = True

DisplayNoteIndicator True se as células contendo notas exibem dicas de célula e contêm indicadores de nota pequenos pontos nos seus cantos superiores esquerdos. Boolean de leitura/gravação.

Application.DisplayNoteIndicator = True

DisplayPasteOptions True se o botão Opções de colagem puder ser exibido. Boolean de leitura/gravação.

Application.DisplayPasteOptions = True

DisplayRecentFiles True se a lista de arquivos usados recentemente for exibida na Interface do usuário. Boolean de leitura/gravação.

Application.DisplayRecentFiles = True

DisplayScrollBars True se as barras de rolagem estiverem visíveis para todas as pastas de trabalho. Boolean de leitura/gravação.

Application.DisplayScrollBars = True

DisplayStatusBar True se a barra de status está exibida. Boolean de leitura/gravação.

Application.DisplayStatusBar = True

ErrorCheckingOptions Retorna um objeto ErrorCheckingOptions , que representa as opções de verificação de erros de um aplicativo.

Dim ecosErrorCheckingOptions As ErrorCheckingOptions
Set ecosErrorCheckingOptions = Application.ErrorCheckingOptions

ExtendList True se o Microsoft Excel estender automaticamente a formatação e a fórmula para novos dados adicionados a uma lista. Boolean de leitura/gravação.

Application.ExtendList = True

FeatureInstall Retorna ou define um valor constante que especifica como o Microsoft Excel trata as chamadas para métodos e propriedades que exigem recursos que ainda não foram instalados. Pode ser uma das constantes MsoFeatureInstall listadas na tabela a seguir. Leitura/gravação MsoFeatureInstall.

Application.FeatureInstall = msoFeatureInstallOnDemandWithUI

FileConverters Retorna informações sobre os conversores de arquivo instalados. Retorna null se não houver nenhuma conversores instalados. Somente leitura .

Dim strFileConverters As String
strFileConverters = Application.FileConverters

FileDialog Retorna um objeto FileDialog representando uma instância da caixa de diálogo arquivo.

Dim fdgFileDialog As Office.FileDialog
Set fdgFileDialog = Application.FileDialog(fileDialogType:=msoFileDialogOpen)

FileExportConverters Retorna uma coleção FileExportConverters que representa todos os conversores de arquivo para salvar arquivos disponíveis no Microsoft Excel. Somente leitura.

Dim fecsFileExportConverters As FileExportConverters
Set fecsFileExportConverters = Application.FileExportConverters

FileValidation Retorna ou define a forma como o Excel validará os arquivos antes de abri-los. Leitura/gravação.

Application.FileValidation =

FileValidationPivot Retorna ou define como o Excel validará o conteúdo dos caches de dados para relatórios de Tabela Dinâmica. Leitura/gravação.

Application.FileValidationPivot = xlFileValidationPivotDefault

FindFormat Define ou retorna os critérios de pesquisa para os tipos de formatos de célula a serem localizados.

Application.FindFormat =

FixedDecimal Todos os dados inseridos após esta propriedade ser definida como true serão formatados com o número de casas decimais fixas definidas pela propriedade FixedDecimalPlaces . Boolean de leitura/gravação.

Application.FixedDecimal = True

FixedDecimalPlaces Retorna ou define o número de casas decimais fixas usadas quando a propriedade FixedDecimal é definida como true. Long de leitura/gravação.

Application.FixedDecimalPlaces = 4

FlashFill True indica que o recurso de preenchimento do Excel flash foi habilitado e ativo. Boolean de leitura/gravação.

Application.FlashFill = True

FlashFillMode True se o recurso de preenchimento flash estiver habilitado. Boolean de leitura/gravação.

Application.FlashFillMode = True

FormulaBarHeight Permite que o usuário especifique a altura da barra de fórmulas em linhas. Long de leitura/gravação.

Application.FormulaBarHeight =

GenerateGetPivotData Retorna True quando o Microsoft Excel pode obter os dados do relatório de tabela dinâmica. Boolean de leitura/gravação.

Application.GenerateGetPivotData = True

GenerateTableRefs A propriedade GenerateTableRefs determina se o método de notação tradicional ou o método de notação de referência estruturada será usado para fazer referência a tabelas em fórmulas. Leitura/gravação.

Application.GenerateTableRefs = xlGenerateTableRefA1

Height Retorna ou define um valor Double que representa a altura, em pontos, da janela principal do aplicativo.

Application.Height =

HighQualityModeForGraphics Retorna ou define se o Excel deve usar o modo de alta qualidade para imprimir gráficos. Leitura/gravação.

Application.HighQualityModeForGraphics = True

Hinstance Retorna um identificador para a instância do Excel representada pelo objeto Application . Long somente leitura.

Dim lngHinstance As Long
lngHinstance = Application.Hinstance

HinstancePtr Retorna um identificador para a instância do Excel representada pelo objeto Application especificado. Somente leitura .

Dim lprHinstancePtr As LongPtr
lprHinstancePtr = Application.HinstancePtr

Hwnd Retorna um Long indicando o identificador da janela principal da janela do Microsoft Excel. Somente leitura.

Dim lngHwnd As Long
lngHwnd = Application.Hwnd

IgnoreRemoteRequests True se solicitações DDE remotas forem ignoradas. Boolean de leitura/gravação.

Application.IgnoreRemoteRequests = True

Interactive True se o Microsoft Excel estiver no modo interativo; essa propriedade é normalmente True. Se você definir essa propriedade como false, o Excel bloqueará todas as entradas do teclado e do mouse exceto a entrada para caixas de diálogo que são exibidas pelo seu código. Boolean de leitura/gravação.

Application.Interactive = True

International Retorna informações sobre as definições internacionais e o país/região atuais. Somente leitura .

Dim varInternational As Variant
varInternational = Application.International(xlDecimalSeparator)

IsSandboxed Retorna true se a pasta de trabalho especificada estiver aberta em uma janela de modo de exibição protegido. Somente leitura.

Dim booIsSandboxed As Boolean
booIsSandboxed = Application.IsSandboxed

Iteration True se o Microsoft Excel usa iteração para resolver referências circulares. Boolean de leitura/gravação.

Application.Iteration = True

LanguageSettings Retorna o objeto LanguageSettings , que contém informações sobre as configurações de idioma no Microsoft Excel. Somente leitura.

Dim lssLanguageSettings As Office.LanguageSettings
Set lssLanguageSettings = Application.LanguageSettings

Left Retorna ou define um valor Double que representa a distância, em pontos, da borda esquerda da tela até a borda esquerda da janela principal do Microsoft Excel.

Application.Left =

LibraryPath Retorna o caminho da pasta Library, mas sem o separador final. String somente leitura.

Dim strLibraryPath As String
strLibraryPath = Application.LibraryPath

MapPaperSize True se os documentos formatados para o tamanho de papel padrão de outro país/região por exemplo, A4 forem ajustados automaticamente para que sejam impressos corretamente no tamanho de papel padrão do seu país/região (por exemplo, Carta). Boolean de leitura/gravação.

Application.MapPaperSize = True

MathCoprocessorAvailable True se um coprocessador matemático estiver disponível. Boolean somente leitura.

Dim booMathCoprocessorAvailable As Boolean
booMathCoprocessorAvailable = Application.MathCoprocessorAvailable

MaxChange Retorna ou define a quantidade máxima de alteração entre cada iteração conforme o Microsoft Excel resolve referências circulares. Double de leitura/gravação.

Application.MaxChange =

MaxIterations Retorna ou define o número máximo de iterações que o Microsoft Excel pode usar para resolver uma referência circular. Long de leitura/gravação.

Application.MaxIterations =

MeasurementUnit Especifica a unidade de medida usada no aplicativo. Leitura/gravação XlMeasurementUnits.

Application.MeasurementUnit =

MergeInstances True para mesclar várias instâncias do aplicativo em uma única instância. Boolean de leitura/gravação.

Application.MergeInstances = True

MouseAvailable True se houver um mouse disponível. Boolean somente leitura.

Dim booMouseAvailable As Boolean
booMouseAvailable = Application.MouseAvailable

MoveAfterReturn True se a célula ativa for movida assim que a tecla Enter retornar for pressionada. Boolean de leitura/gravação.

Application.MoveAfterReturn = True

MoveAfterReturnDirection Retorna ou define a direção na qual a célula ativa é movida quando o usuário pressiona ENTER. Leitura/gravação XlDirection.

Application.MoveAfterReturnDirection = xlDown

MultiThreadedCalculation Retorna um objeto MultiThreadedCalculation que controla as configurações de recálculo de vários threads. Somente leitura.

Dim mtcMultiThreadedCalculation As MultiThreadedCalculation
Set mtcMultiThreadedCalculation = Application.MultiThreadedCalculation

Name Retorna um valor String que representa o nome do objeto.

Dim strName As String
strName = Application.Name

Names Retorna uma coleção de nomes que representa todos os nomes na pasta de trabalho ativa. Objeto Names somente leitura.

Dim nmsNames As Names
Set nmsNames = Names

NetworkTemplatesPath Retorna o caminho de rede onde os modelos estão armazenados. Se o caminho de rede não existir, essa propriedade retornará uma cadeia de caracteres vazia. String somente leitura.

Dim strNetworkTemplatesPath As String
strNetworkTemplatesPath = Application.NetworkTemplatesPath

NewWorkbook

Dim nfeNewWorkbook As Office.NewFile
Set nfeNewWorkbook = Application.NewWorkbook

ODBCErrors Retorna uma coleção ODBCErrors que contém todos os erros de ODBC gerados pela operação de tabela de consulta mais recente ou de relatório de tabela dinâmica. Somente leitura.

Dim odbsODBCErrors As ODBCErrors
Set odbsODBCErrors = Application.ODBCErrors

ODBCTimeout Retorna ou define o limite de tempo da consulta ODBC, em segundos. O valor padrão é 45 segundos. Long de leitura/gravação.

Application.ODBCTimeout = 15

OLEDBErrors Retorna a coleção OLEDBErrors, que representa as informações de erro retornadas pela consulta mais recente ao banco de dados OLE. Somente leitura.

Dim olesOLEDBErrors As OLEDBErrors
Set olesOLEDBErrors = Application.OLEDBErrors

OnWindow Retorna ou define o nome do procedimento que é executado sempre que você ativa uma janela. Cadeia de caracteres de leitura/gravação.

Application.OnWindow =

OperatingSystem Retorna o nome e o número de versão do sistema operacional atual. String somente leitura.

Dim strOperatingSystem As String
strOperatingSystem = Application.OperatingSystem

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim appParent As Application
Set appParent = Parent

Path Retorna um valor String que representa o caminho completo para o aplicativo, excluindo o separador final e o nome do aplicativo.

Dim strPath As String
strPath = Application.Path

PathSeparator Retorna o caractere separador\de caminho . String somente leitura.

Dim strPathSeparator As String
strPathSeparator = Application.PathSeparator

PivotTableSelection True se os relatórios de tabela dinâmica usarem seleções estruturadas. Boolean de leitura/gravação.

Application.PivotTableSelection = True

PreviousSelections Retorna uma matriz dos últimos quatro intervalos ou nomes selecionados. Cada elemento da matriz é um objeto Range . Somente leitura .

Dim varPreviousSelections As Variant
varPreviousSelections = Application.PreviousSelections

ProductCode Retorna o identificador global exclusivo GUID do Microsoft Excel. String somente leitura.

Dim strProductCode As String
strProductCode = Application.ProductCode

PromptForSummaryInfo True se o Microsoft Excel solicitar informações de resumo quando os arquivos forem salvos pela primeira vez. Boolean de leitura/gravação.

Application.PromptForSummaryInfo = True

ProtectedViewWindows Retorna uma coleção ProtectedViewWindows que representa todas as janelas do Modo de Exibição Protegido que estão abertas no aplicativo. Somente leitura.

Dim pvwsProtectedViewWindows As ProtectedViewWindows
Set pvwsProtectedViewWindows = Application.ProtectedViewWindows

QuickAnalysis Retorna um objeto QuickAnalysis que representa as opções de análise rápida do aplicativo.

Dim qasQuickAnalysis As QuickAnalysis
Set qasQuickAnalysis = Application.QuickAnalysis

Range Retorna um objeto Range que representa uma célula ou um intervalo de células.

Dim strCell1 As String: strCell1 = 
Dim rngRange As Range
Set rngRange = Range(Cell1:=strCell1)

Ready Retorna True quando o aplicativo Microsoft Excel está pronto; False quando o aplicativo Excel não está pronto. Boolean somente leitura.

Dim booReady As Boolean
booReady = Application.Ready

RecentFiles Retorna uma coleção recentFiles que representa a lista de arquivos usados recentemente.

Dim rfsRecentFiles As RecentFiles
Set rfsRecentFiles = Application.RecentFiles

RecordRelative True se as macros são gravadas usando referências relativas; False se a gravação for absoluta. Boolean somente leitura.

Dim booRecordRelative As Boolean
booRecordRelative = Application.RecordRelative

ReferenceStyle Retorna ou define a forma como o Microsoft Excel exibe referências a células e títulos de coluna e linha nos estilos de referência A1 e L1C1. Leitura/gravação XlReferenceStyle.

Application.ReferenceStyle = xlA1

RegisteredFunctions Retorna informações sobre funções em bibliotecas de vínculo dinâmico DLLs ou em recursos de código que tenham sido registrados com as funções de macro REGISTRAR ou IDENT.REGISTRO. Somente leitura .

Dim varRegisteredFunctions As Variant
varRegisteredFunctions = Application.RegisteredFunctions

ReplaceFormat Define os critérios de substituição a serem usados ao substituir formatos de células. Os critérios de substituição são então usados em uma chamada subsequente para o método replace do objeto Range .

Application.ReplaceFormat =

RollZoom True se o IntelliMouse aplicar zoom em vez de rolagem. Boolean de leitura/gravação.

Application.RollZoom = True

Rows Retorna um objeto Range que representa todas as linhas na planilha ativa. Se o documento ativo não for uma planilha, a propriedade Rows falhará. Objeto Range somente leitura.

Dim rngRows As Range
Set rngRows = Rows

RTD Retorna um objeto RTD .

Dim As Variant
Application.RTD

ScreenUpdating True se atualização de tela estiver ativada. Boolean de leitura/gravação.

Application.ScreenUpdating = True

Selection Retorna o objeto selecionado no momento na planilha ativa para um objeto Application . Retorna Nothing se nenhum objeto for selecionado. Use o método Select para definir a seleção e use a função TypeName para descobrir o tipo de objeto selecionado.

Dim objSelection As Object
Set objSelection = Selection

Sheets Retorna uma coleção Sheets que representa todas as planilhas na pasta de trabalho ativa. Objeto Sheets somente leitura.

Dim shtsSheets As Sheets
Set shtsSheets = Sheets

SheetsInNewWorkbook Retorna ou define o número de planilhas que o Microsoft Excel insere automaticamente em novas pastas de trabalho. Long de leitura/gravação.

Application.SheetsInNewWorkbook = 3

ShowChartTipNames True se os gráficos mostrarem nomes de dicas de gráfico. O valor padrão é True. Boolean de leitura/gravação.

Application.ShowChartTipNames = True

ShowChartTipValues True se os gráficos exibirem valores de dicas de gráfico. O valor padrão é True. Boolean de leitura/gravação.

Application.ShowChartTipValues = True

ShowConvertToDataType

Application.ShowConvertToDataType = True

ShowDevTools Retorna ou define um Boolean que indica se a guia desenvolvedor é exibida na faixa de opções. Boolean de leitura/gravação.

Application.ShowDevTools = True

ShowMenuFloaties Retorna ou define um Boolean que representa se as Minibarras de ferramentas serão exibidas quando o usuário clicar com o botão direito do mouse na janela da pasta de trabalho. False se as Minibarras de ferramentas forem exibidas. Boolean de leitura/gravação.

Application.ShowMenuFloaties = True

ShowQuickAnalysis Controla se a interface de usuário contextual de análise rápida é exibida na seleção. True significa que o botão de análise rápida será exibido.

Application.ShowQuickAnalysis = True

ShowSelectionFloaties Retorna ou define um Boolean que representa se as Minibarras de ferramentas serão exibidas quando um usuário selecionar o texto. False se as Minibarras de ferramentas forem exibidas. Boolean de leitura/gravação.

Application.ShowSelectionFloaties = True

ShowStartupDialog Retorna True o padrão é False quando o painel de tarefas Nova pasta de trabalho é exibido em um aplicativo Microsoft Excel. Boolean de leitura/gravação.

Application.ShowStartupDialog = True

ShowToolTips True se as dicas de ferramentas estiverem ativadas. Boolean de leitura/gravação.

Application.ShowToolTips = True

SmartArtColors Retorna o conjunto de estilos SmartArtColors que estão atualmente carregados no aplicativo. Somente leitura.

Dim sacsSmartArtColors As Office.SmartArtColors
Set sacsSmartArtColors = Application.SmartArtColors

SmartArtLayouts Retorna o conjunto de SmartArtLayouts que estão atualmente carregados no aplicativo. Somente leitura.

Dim salsSmartArtLayouts As Office.SmartArtLayouts
Set salsSmartArtLayouts = Application.SmartArtLayouts

SmartArtQuickStyles Retorna o conjunto de SmartArtQuickStyles que estão atualmente carregados no aplicativo. Somente leitura.

Dim saqsSmartArtQuickStyles As Office.SmartArtQuickStyles
Set saqsSmartArtQuickStyles = Application.SmartArtQuickStyles

Speech Retorna um objeto Speech .

Dim spcSpeech As Speech
Set spcSpeech = Application.Speech

SpellingOptions Retorna um objeto SpellingOptions que representa as opções de ortografia do aplicativo.

Dim sosSpellingOptions As SpellingOptions
Set sosSpellingOptions = Application.SpellingOptions

StandardFont Retorna ou define o nome da fonte padrão. String de leitura/gravação.

Application.StandardFont = "Arial"

StandardFontSize Retorna ou define o tamanho de fonte padrão, em pontos. Long de leitura/gravação.

Application.StandardFontSize = 12

StartupPath Retorna o caminho completo da pasta inicial, excluindo o separador final. String somente leitura.

Dim strStartupPath As String
strStartupPath = Application.StartupPath

StatusBar Retorna ou define o texto na barra de status. String de leitura/gravação.

Application.StatusBar =

TemplatesPath Retorna o caminho local onde os modelos estão armazenados. String somente leitura.

Dim strTemplatesPath As String
strTemplatesPath = Application.TemplatesPath

ThisWorkbook Retorna um objeto Workbook que representa a pasta de trabalho onde o código de macro atual está em execução. Somente leitura.

Dim wbThisWorkbook As Workbook
Set wbThisWorkbook = ThisWorkbook

ThousandsSeparator Retorna ou define o caractere usado como separador de milhar como um String. Leitura/gravação.

Application.ThousandsSeparator = ","

Top Retorna ou define um valor Double que representa a distância, em pontos, da borda superior da tela até a borda superior da janela principal do Microsoft Excel.

Application.Top =

TransitionMenuKey Retorna ou define o menu ou a tecla de ajuda do Microsoft Excel, /que geralmente é. String de leitura/gravação.

Application.TransitionMenuKey =

TransitionMenuKeyAction Retorna ou define a ação executada quando a tecla do menu do Microsoft Excel é pressionada. Pode ser xlExcelMenus ou xlLotusHelp consulte a Enumeração constantes do Excel. Long de leitura/gravação.

Application.TransitionMenuKeyAction =

TransitionNavigKeys True se as teclas de navegação de transição estiverem ativas. Boolean de leitura/gravação.

Application.TransitionNavigKeys = True

UsableHeight Retorna a altura máxima do espaço que uma janela pode ocupar na área de janela do aplicativo, em pontos. Double somente leitura.

Dim dblUsableHeight As Double
dblUsableHeight = Application.UsableHeight

UsableWidth Retorna a largura máxima do espaço que uma janela pode ocupar na área de janela do aplicativo, em pontos. Double somente leitura.

Dim dblUsableWidth As Double
dblUsableWidth = Application.UsableWidth

UseClusterConnector Retorna ou define se o Excel permite que funções definidas pelo usuário em suplementos XLL sejam executadas em um cluster de cálculo. Leitura/gravação.

Application.UseClusterConnector = True

UsedObjects Retorna um objeto UsedObjects que representa objetos alocados em uma pasta de trabalho. Somente leitura.

Dim uosUsedObjects As UsedObjects
Set uosUsedObjects = Application.UsedObjects

UserControl True se o aplicativo estiver visível ou se tiver sido criado ou iniciado pelo usuário. False se você tiver criado ou iniciado o aplicativo através de programação usando a função CreateObject ou GetObject e se o aplicativo estiver oculto. Boolean de leitura/gravação.

Application.UserControl = True

UserLibraryPath Retorna o caminho para o local no computador do usuário onde os suplementos de COM estão instalados. String somente leitura.

Dim strUserLibraryPath As String
strUserLibraryPath = Application.UserLibraryPath

UseSystemSeparators True padrão se os separadores do sistema do Microsoft Excel estiverem ativados. Boolean de leitura/gravação.

Application.UseSystemSeparators = True

Value Retorna um valor String que representa o nome do aplicativo.

Dim strValue As String
strValue = Application.Value

VBE Retorna um objeto VBE que representa o Editor do Visual Basic. Somente leitura.

Dim vbeVBE As VBIDE.VBE
Set vbeVBE = Application.VBE

Version Retorna um valor String que representa o número da versão do Microsoft Excel.

Dim strVersion As String
strVersion = Application.Version

Visible Retorna ou define um valor Boolean que determina se o objeto será visível. Leitura/gravação.

Application.Visible = True

Watches Retorna um objeto Watches que representa um intervalo que é rastreado quando a planilha é recalculada.

Dim wtcsWatches As Watches
Set wtcsWatches = Application.Watches

Width Retorna ou define um valor Double que representa a distância, em pontos, da borda esquerda da janela do aplicativo até sua borda direita.

Application.Width = 300

Windows Retorna uma coleção Windows que representa todas as janelas em todas as pastas de trabalho. Objeto Windows somente leitura.

Dim wndsWindows As Windows
Set wndsWindows = Windows

WindowsForPens True se o computador estiver executando o Microsoft Windows para Pen Computing. Boolean somente leitura.

Dim booWindowsForPens As Boolean
booWindowsForPens = Application.WindowsForPens

WindowState Retorna ou define o estado da janela. Leitura/gravação XlWindowState.

Application.WindowState = xlMaximized

Workbooks Retorna uma coleção Workbooks que representa todas as pastas de trabalho abertas. Somente leitura.

Dim wrksWorkbooks As Workbooks
Set wrksWorkbooks = Workbooks

WorksheetFunction Retorna o objeto WorksheetFunction . Somente leitura.

Dim wfnWorksheetFunction As WorksheetFunction
Set wfnWorksheetFunction = WorksheetFunction

Worksheets Para um objeto Application , retorna uma coleção Sheets que representa todas as planilhas na pasta de trabalho ativa.

Dim shtsWorksheets As Sheets
Set shtsWorksheets = Worksheets