Formatos del Gantt

21/04/2004 - 13:11 por jorge | Informe spam
Hola,

estoy intentando cambiar el formato de los elementos de la
ventana del Gantt del Project según el valor que tenga la
celda "Text4" de la fila i

En mi corta experiencia en VBA he pensado en algo así,
pero no me coge el valor del Text4...

¿Podría ayudarme alguien?

Gracias

Jorge

Sub Macro1()
For i = 1 To 20
MSProject.SelectTaskField Row:=i, Column:="Text4",
RowRelative:=False
If MSProject.ActiveProject.Text4 = "ISM" Then
SetTaskField Field:="Text4", Value:="EcM", TaskID:=i,
ProjectName:="C:\Proyecto.mpp"
GanttBarFormat TaskID:=i, GanttStyle:=4,tartShape:=3,
StartType:=0, StartColor:=2, MiddleShape:=0,
MiddlePattern:=1, MiddleColor:=2, EndShape:=0, EndType:=0,
EndColor:=2, RightText:="Start",
ProjectName:="C:\Proyecto.mpp"
End If
Next
End Sub

Preguntas similare

Leer las respuestas

#1 josean
21/04/2004 - 19:54 | Informe spam
Prueba con estas correcciones:

Sub Macro1()
For i = 1 To 4
MSProject.SelectTaskField _
Row:=i, Column:="Text4", RowRelative:=False
If ActiveCell.Text = "ISM" Then
SetTaskField Field:="Text4", Value:="EcM", TaskID:=i
GanttBarFormat _
StartShape:=0, StartType:=0, StartColor:=0, _
MiddleShape:=2, MiddlePattern:=3, MiddleColor:=1, _
EndShape:=0, EndType:=0, EndColor:=0, _
RightText:="Comienzo"
End If
Next
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida