Microsoft Office Forums


Reply
Thread Tools Display Modes

Displaying holidays in the Gantt chart

 
 
Candido Rodriguez
Guest
Posts: n/a
 
      06-15-2004, 10:20 AM
MSP takes care of the holidays of a resource when drawing
the bar in the GANT chart.
Is it possible to see the bar in a way holidays are
displayed differently than working days ?
Thanks for you answer.

C@ndido

 
Reply With Quote
 
 
 
 
Jan De Messemaeker
Guest
Posts: n/a
 
      06-15-2004, 06:38 PM
Hi Candido,

Nice to hear from you again - starting to be a user hey
I have an article on this on my website
HTH

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/index.htm
32-495-300 620
"Candido Rodriguez" <(E-Mail Removed)> schreef in bericht
news:1c9ca01c452c2$5fb92a00$(E-Mail Removed)...
> MSP takes care of the holidays of a resource when drawing
> the bar in the GANT chart.
> Is it possible to see the bar in a way holidays are
> displayed differently than working days ?
> Thanks for you answer.
>
> C@ndido
>




 
Reply With Quote
 
 
 
 
candido Rodriguez
Guest
Posts: n/a
 
      06-16-2004, 08:39 AM
Yes indeed I try go deeper in the product and I suppose
the problem I am facing with is not new.
I found a VB script that works fine. It creates a new
project and present the holidays per ressource as tasks.
this is enough for me at the moment but I would like to
see it in the same Gantt chart
Thanks anyway, I will go and visit your site.
For those who are interessed I post here beneath the code
I found (the code has been written by Michael Magan,
thanks to him).
Sub HolidayGantt()
' Creates a new project, with a task for each resource
' The task bar shows the holidays for each resource
' The range for the calendar is from project start to 3
months beyond
' the project finish
' For the visual effect, we put a block at the start and
the end of the
' bar
' 14-Jun-2001 Michael Magan

Dim PrjSrc As Project ' Source project
Dim PrjDest As Project ' New (destination) project
Dim T As Task
Dim D As Date
Dim DCalStart As Date
Dim DCalEnd As Date

Set PrjSrc = ActiveProject

FileNew
Set PrjDest = ActiveProject
PrjDest.ProjectStart = PrjSrc.ProjectStart

' Set the date range for the holiday calendar
DCalStart = PrjSrc.ProjectStart
DCalEnd = PrjSrc.ProjectFinish + 90

For Each R In PrjSrc.Resources
Set T = PrjDest.Tasks.Add(Name:=R.Name)

' Set a dummy holiday at the start and end of the
calendar
' This creates a dotted line for the duration of this
task
T.TimeScaleData(DCalStart _
, DCalStart + 1 _
, pjTaskTimescaledWork _
, pjTimescaleDays)(1).Value = 8 * 60
T.TimeScaleData(DCalEnd _
, DCalEnd + 1 _
, pjTaskTimescaledWork _
, pjTimescaleDays)(1).Value = 8 * 60

' For each day of the project, compare the resource
calendar
' with the standard calendar. If the standard
calendar has
' a working day, and the resource calendar does not,
then it
' is a holiday
For D = DCalStart To DCalEnd
If PrjSrc.BaseCalendars(1).Period(D, D).Working And
Not _
R.Calendar.Period(D, D).Working Then
T.TimeScaleData(D _
, D + 1 _
, pjTaskTimescaledWork _
, pjTimescaleDays)(1).Value = 8 * 60
End If
Next D
Next R
End Sub

C@ndido

>-----Original Message-----
>Hi Candido,
>
>Nice to hear from you again - starting to be a user hey
>I have an article on this on my website
>HTH
>
>--
>Jan De Messemaeker
>Microsoft Project Most Valuable Professional
>http://users.online.be/prom-ade/index.htm
>32-495-300 620
>"Candido Rodriguez" <(E-Mail Removed)>

schreef in bericht
>news:1c9ca01c452c2$5fb92a00$(E-Mail Removed)...
>> MSP takes care of the holidays of a resource when

drawing
>> the bar in the GANT chart.
>> Is it possible to see the bar in a way holidays are
>> displayed differently than working days ?
>> Thanks for you answer.
>>
>> C@ndido
>>

>
>
>
>.
>

 
Reply With Quote
 
Jan De Messemaeker
Guest
Posts: n/a
 
      06-16-2004, 09:48 AM
Hi,
There is a macro on my website as well; it groups consecutive holidays into
one task.
HTH

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/index.htm
32-495-300 620
"candido Rodriguez" <(E-Mail Removed)> schreef in bericht
news:1d4ce01c4537d$65498170$(E-Mail Removed)...
> Yes indeed I try go deeper in the product and I suppose
> the problem I am facing with is not new.
> I found a VB script that works fine. It creates a new
> project and present the holidays per ressource as tasks.
> this is enough for me at the moment but I would like to
> see it in the same Gantt chart
> Thanks anyway, I will go and visit your site.
> For those who are interessed I post here beneath the code
> I found (the code has been written by Michael Magan,
> thanks to him).
> Sub HolidayGantt()
> ' Creates a new project, with a task for each resource
> ' The task bar shows the holidays for each resource
> ' The range for the calendar is from project start to 3
> months beyond
> ' the project finish
> ' For the visual effect, we put a block at the start and
> the end of the
> ' bar
> ' 14-Jun-2001 Michael Magan
>
> Dim PrjSrc As Project ' Source project
> Dim PrjDest As Project ' New (destination) project
> Dim T As Task
> Dim D As Date
> Dim DCalStart As Date
> Dim DCalEnd As Date
>
> Set PrjSrc = ActiveProject
>
> FileNew
> Set PrjDest = ActiveProject
> PrjDest.ProjectStart = PrjSrc.ProjectStart
>
> ' Set the date range for the holiday calendar
> DCalStart = PrjSrc.ProjectStart
> DCalEnd = PrjSrc.ProjectFinish + 90
>
> For Each R In PrjSrc.Resources
> Set T = PrjDest.Tasks.Add(Name:=R.Name)
>
> ' Set a dummy holiday at the start and end of the
> calendar
> ' This creates a dotted line for the duration of this
> task
> T.TimeScaleData(DCalStart _
> , DCalStart + 1 _
> , pjTaskTimescaledWork _
> , pjTimescaleDays)(1).Value = 8 * 60
> T.TimeScaleData(DCalEnd _
> , DCalEnd + 1 _
> , pjTaskTimescaledWork _
> , pjTimescaleDays)(1).Value = 8 * 60
>
> ' For each day of the project, compare the resource
> calendar
> ' with the standard calendar. If the standard
> calendar has
> ' a working day, and the resource calendar does not,
> then it
> ' is a holiday
> For D = DCalStart To DCalEnd
> If PrjSrc.BaseCalendars(1).Period(D, D).Working And
> Not _
> R.Calendar.Period(D, D).Working Then
> T.TimeScaleData(D _
> , D + 1 _
> , pjTaskTimescaledWork _
> , pjTimescaleDays)(1).Value = 8 * 60
> End If
> Next D
> Next R
> End Sub
>
> C@ndido
>
> >-----Original Message-----
> >Hi Candido,
> >
> >Nice to hear from you again - starting to be a user hey
> >I have an article on this on my website
> >HTH
> >
> >--
> >Jan De Messemaeker
> >Microsoft Project Most Valuable Professional
> >http://users.online.be/prom-ade/index.htm
> >32-495-300 620
> >"Candido Rodriguez" <(E-Mail Removed)>

> schreef in bericht
> >news:1c9ca01c452c2$5fb92a00$(E-Mail Removed)...
> >> MSP takes care of the holidays of a resource when

> drawing
> >> the bar in the GANT chart.
> >> Is it possible to see the bar in a way holidays are
> >> displayed differently than working days ?
> >> Thanks for you answer.
> >>
> >> C@ndido
> >>

> >
> >
> >
> >.
> >



 
Reply With Quote
 
 
 
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Difference between Ent.Gantt chart and Gantt chart Project General 1 07-02-2009 10:53 AM
Diffecence between "Enterprise Gantt Chart" and "Gantt Chart" Vit Project General 1 05-21-2008 01:31 AM
Gantt Chart View with columns to the right of the Gantt chart Project Slave Project General 2 03-10-2005 11:41 PM
In Project 2000, Gantt Chart bars don't show what is in Gantt tab. Frank Hendriks Project General 1 03-08-2005 06:31 AM
Enterprise Gantt Chart vs. Gantt Chart Joe Project Server 1 12-14-2004 03:29 PM


All times are GMT. The time now is 10:04 PM.
Microsoft Office Forums is not affiliated with Microsoft Corporation.


Welcome!
Welcome to the Microsoft Office Forums
 


Latest Threads
New user looking for shapes/templates
SargeUSMC (04-21-2014, 04:23 PM)

Mail Merging Content With High Quality
oleander (04-17-2014, 11:59 PM)

Aargh. What is this?
PeteJ (04-17-2014, 12:10 PM)

Word 2013 Insert Symbol (Not Responding)
tpthrshr (04-17-2014, 02:49 AM)

Can't save a large Word document
Josh (04-17-2014, 01:03 AM)