Boxformat bug
Le
adesert
Bonjour,
J'ai développé une macro qui me permet dans un PERT de n'imprimer que les taches de personnes saisies par l'utilisateur (PIC) sur une période donnée. Ces taches apparaissent dans le PERT avec un format "gras" et leurs prédecesseurs / successeurs en format "non gras".
Mon problème est que j'utilise boxformat pour ce faire et que 3fois sur 4, cela plante (runtime error 1101).
Comment résoudre ce problème?
Ci dessous mon code:
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
ViewApply Name:="Network &Diagram"
Application.BoxFormat TaskID:=jTask.UniqueID, BorderWidth:=1, DataTemplate:="ICE3 Standard"
If jTask.Flag5 = True Then
jTask.Flag5 = False
End If
End If
Next jTask
J'ai développé une macro qui me permet dans un PERT de n'imprimer que les taches de personnes saisies par l'utilisateur (PIC) sur une période donnée. Ces taches apparaissent dans le PERT avec un format "gras" et leurs prédecesseurs / successeurs en format "non gras".
Mon problème est que j'utilise boxformat pour ce faire et que 3fois sur 4, cela plante (runtime error 1101).
Comment résoudre ce problème?
Ci dessous mon code:
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
ViewApply Name:="Network &Diagram"
Application.BoxFormat TaskID:=jTask.UniqueID, BorderWidth:=1, DataTemplate:="ICE3 Standard"
If jTask.Flag5 = True Then
jTask.Flag5 = False
End If
End If
Next jTask
J'ai un peu modifier votre procédure VBA, ainsi elle fonctionne très bien:
(version française)
Sub Network()
Dim jTask As Task
ViewApply Name:="Réseau &de tâches"
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
If jTask.Flag5 = True Then
BoxSet TaskID:=jTask.UniqueID
BoxFormat DataTemplate:="Standard", HorizontalGridlines:=True,
VerticalGridlines:úlse, BorderShape:=pjBoxWideRectangle,
BorderColor:=pjMaroon, BorderWidth:=4, BackgroundColor:=pjWhite,
BackgroundPattern:=pjBackgroundSolidFill, Reset:úlse
End If
End If
Next jTask
End Sub
Gérard Ducouret
"adesert"