VBA: Adjustments.Item wird in 2007 anders interpretiert als in 2003?!?

27/07/2009 - 19:20 von Arne | Report spam
Hallo Liebe NG,
ich erzeuge mit folgendem Code einen Stern in meiner Pràsentation:

With mySlide.Shapes.AddShape(msoShape16pointStar, Top:=cmToPt
(-0.66), Left:=cmToPt(26.37), Width:=cmToPt(3), Height:=cmToPt(3))
.Adjustments.Item(1) = 0.0832
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = star_background_color
.Fill.Transparency = 0#
.Line.DashStyle = msoLineSolid
.Line.Weight = 0.25
.Line.Visible = msoTrue
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.BackColor.RGB = RGB(255, 255, 255)
End With

Den Code habe ich mit der Makroaufzeichnung von Powerpoint 2003
erzeugt. Besonders wichtig ist mir hier die .Adjustments.Item(1)
Anweisung. In PPT2003 sieht das auch ordentlich aus. In PPT2007 leider
absolut nicht. Hier wird die Angabe scheinbar anders interpretiert.
Witziger weise schlàgt die Onlinehilfe von 2007 vor, genau bei sowas
die Makroaufzeichnung zu benutzen um auf den richtigen Code zu kommen.
Dumm nur das es die in 2007 nicht mehr gibt :(

Hat jemand ne Idee wie ich dass jetzt in 2007 getüddelt bekomme?

Unter diesem Link ist mal unterschied zu sehen:
http://img193.imageshack.us/img193/...nntvno.png

Gruß Arne
 

Lesen sie die antworten

#1 C. Sekulla
28/07/2009 - 07:22 | Warnen spam
Hi Arne,

als eine Möglichkeit sehe ich:
Shape zu Fuss schön machen und mit
? Application.Presentations(1).Slides(1).Shapes(1).Adjustments(1)
Adjustments(1) anzeigen lassen.
Warum der Wert in 2007 anders ist als in 2003 kann ich dir auch nicht sagen.
Ich habe etwa ein Wert von 0.4 rausbekommen.

cu CS

Ähnliche fragen