Método Application.EditGoTo (Project)

Desplaza hasta un recurso, tarea o fecha.

Sintaxis

expresión. EditGoTo( _ID_, _Date_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
ID	Opcional	Long	Expresión numérica que especifica el número de identificación de la tarea o el recurso que se va a mostrar en la sección activa.
Date	Opcional	Variant	Expresión numérica o cadena que especifica la primera fecha que se va a mostrar en la sección activa.

Valor devuelto

Boolean

Ejemplo:

En el ejemplo siguiente se solicita al usuario una fecha o el nombre de una tarea o de un recurso y, a continuación, se desplaza a dicho recurso o fecha de la sección activa. Se supone que el usuario se encuentra en una vista de tareas.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.