Método Application.EditGoTo (Project)

Rola até um recurso, tarefa ou data.

Sintaxe

expressão. EditGoTo( _ID_, _Date_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ID	Opcional	Long	Um número que especifica o número de identificação da tarefa ou recurso a ser exibido no painel ativo.
Date	Opcional	Variant	Um número ou uma cadeia de caracteres que especifique a primeira data a ser exibida no painel ativo.

Valor de retorno

Boolean

Exemplo

O exemplo a seguir solicita ao usuário uma data ou um nome de tarefa e então rola para a data ou tarefa no painel ativo. Ele considera que o usuário está no modo de exibição de tarefas.

Sub PromptUserForEditGotoArguments() 
 
 Dim Entry As String ' Date or task name entered by user 
 
 Entry = InputBox$("Enter a date or a task name to which you want to scroll in the active pane.") 
 
 ' If user enters a date, scroll to a date in the active pane. 
 If IsDate(Entry) Then 
 EditGoTo Date:=Entry 
 ' Otherwise, scroll to a task in the active pane. 
 Else 
 EditGoTo ID:=ActiveProject.Tasks(Entry).ID 
 End If 
 
End Sub

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.