Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zeitskala über Makro einstellen

4 views
Skip to first unread message

IKistinger

unread,
Nov 13, 2009, 8:46:01 AM11/13/09
to
Hallo,

ich habe versucht ein Makro aufzuzeichnen, welches mir die Zeitskala auf KW
einstellt. Da Project beim Zoomen des Gantts ja immer wieder die
Ursprungseinstellungen verwendet, sollte mit einem Klick auf ein Symbol
automatisch die Zeitskala in KW umgestellt werden. Leider klappt das nicht...
Hat Jemand vielleicht einen Lösungsansatz?

viele Grüße
Ilka Kistinger

Steven Marti

unread,
Nov 30, 2009, 2:37:19 PM11/30/09
to
Hallo Ilka

"IKistinger" <IKist...@discussions.microsoft.com> schrieb im Newsbeitrag
news:6D06AA9A-1560-4C15...@microsoft.com...

Solche Makros sind problemlos möglich, achte darauf, dass das Makro in der
globalen Datei gespeichert ist. Beim Abruf (z.B. mittels einem Icon in der
Symbolleiste) kannst Du dann den Dateinamen weglassen.

Gruss
Steven Marti

Hartmut de Jong

unread,
Dec 16, 2009, 4:48:45 AM12/16/09
to
Hallo Ilka,

hier ein Makro für die Zeitskala (hier Monate). Die Parameter musst du dir
für die Wochenskala entsprechend anpassen.

Sub userTsMonth()
On Error Resume Next
TimescaleEdit MajorUnits:=pjTimescaleMonths,
MinorUnits:=pjTimescaleMonths, MajorCount:=1, MinorCount:=1, _
MajorLabel:=PjMonthLabel.pjMonthLabelMonth_m,
MinorLabel:=PjMonthLabel.pjMonthLabelMonthFromStart_mm, MajorCount:=1, _
MinorTicks:=True, Separator:=True, _
MajorUseFY:=True, MinorUseFY:=True, TopUnits:=pjTimescaleQuarters,
TopLabel:=pjQuarter_Qtr_q_yyyy, _
Topalign:=PjAlign.pjAlignCenters,
MajorAlign:=PjAlign.pjAlignCenters, MinorAlign:=PjAlign.pjAlignCenters, _
TierCount:=3, Enlarge:=100
End Sub

Gruß
Hartmut

"IKistinger" <IKist...@discussions.microsoft.com> schrieb im Newsbeitrag
news:6D06AA9A-1560-4C15...@microsoft.com...

0 new messages