Hallo,
ich habe eine Powerpointdatei und nutze Tabelle als Verknüpfung aus Excel.
Kennt jemand einen Makrocode, dass entweder alle Tabelle in Powerpoint eine bestimmte Größe haben oder das markierte Tabelle, nach der Makroausführung, eine bestimmte Größe?
Ich habe diesen Code gefunden. Jedoch werden damit auch Textfelder bewegt. Ich möchte jedoch das nur die MS Object Verknüpfungen aus Excel bewegt werden. Kennt sich jemand aus?
Code:
Sub ResizeAll()
For Each tSlide In ActiveWindow.Presentation.Slides
tSlide.Select
With tSlide.Shapes.Item(1)
'assume a blank slide with one image added only
.Select
.Height = 72 * 1000.39
.Width = 72 * 10.67
'algin middle (Horizontal Center)
.Left = 100
.Top = ActivePresentation.PageSetup.SlideHeight / 5
End With
Next
End Sub
Hallo,
ich weiß, daß zumindest einer der Helfer eine Zeit lang sehr intensiv mit Powerpoint gearbeitet hat.
Allerdings ist er derzeit selten da. Vielleicht wartest Du mal ab, was er dazu sagt, wenn er das liest.
Das hilft Dir zwar jetzt nicht unmittelbar weiter, aber ...
Hallo Chrissy,
wenn der Code ansonsten passt, dann prüfe den Typ des Objektes.
msoAutoShape 1
msoCallout 2
msoCanvas 20
msoChart 3
msoComment 4
msoDiagram 21
msoEmbeddedOLEObject 7
msoFormControl 8
msoFreeform 5
msoGroup 6
msoInk 22
msoInkComment 23
msoLine 9
msoLinkedOLEObject 10
msoLinkedPicture 11
msoMedia 16
msoOLEControlObject 12
msoPicture 13
msoPlaceholder 14
msoScriptAnchor 18
msoShapeTypeMixed -2
msoTable 19
msoTextBox 17
msoTextEffect 15