Office: Grafik per Makro formatieren

Hallo,
ich habe ein Makro, das mir auf Mausklick immer eine bestimmte Grafik einfügt. Das passiert aber leider nicht mit festem Seitenverhältnis. Jetzt habe ich folgendes versucht:

ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:=(...)
, LinkToFile:=False, SaveWithDocument:=True).WrapFormat.Type = _
wdWrapTopBottom
If TypeName(Selection) = "Picture" Then
With Selection.ShapeRange
.LockAspectRatio = True
'evtl. weiteres
End With
End If

Funktioniert aber leider nicht, das Seitenverhältnis bleibt ungesperrt. Es nervt mich aber, wenn ich hinterher jeweils zweimal z.B. "58%" in das Dialogfeld hacken muss. Könnte man vielleicht auch gleich nach Einfügen das Dialogfenster aufmachen und die gewünschte Größe abfragen? Danke!

:)

 

Hallo Nigella,

weil das Bild nach dem Einfügen nicht selektiert ist (sondern nur der Absatz, an dem es hängt), tut sich in deinem Makro im Weiteren gar nichts mehr.

Außerdem wird mir als TypeName des eingefügten Objekts Shape ausgegeben und nicht Picture, also liefert deine Bedingung falsch und es tut sich auch deswegen nichts.

Ich würde das Bild beim Einfügen einfach zum Objekt machen, dann funktioniert auch das Sperren des Seitenverhältnisses, etwa so:

Code:

 

Danke, das funktioniert schon mal so weit. Aber ich brauch nicht jedes Mal 58%, sondern ständig andere Werte. Deshalb möchte ich den Dialog wie in der Anlage aufmachen, schaffe das aber noch nicht, weil ich den Objektnamen nicht rauskriegen kann.

With meinBild
'MsgBox TypeName(meinBild) 'nur zur Kontrolle
.WrapFormat.Type = wdWrapTopBottom
.LockAspectRatio = True
.Select
End With
Dialogs(wdDialogFormatDrawingObject).Show 'das öffnet nur den Aufgabenbereich

Wie komme ich jetzt zu dem richtigen Dialog bzw. seinem Namen? Beim Durchflöhen der Liste hab ich nichts gefunden...

 

Hallo nochmal,

"Beim Durchflöhen der Liste hab ich nichts gefunden". Ich auch nicht. Aber wenn es dir nur um die Eingabe des Faktors geht, frag ihn doch einfach vorher ab:
Code:

Wenn du nicht der Einzige bist, der dieses Makro verwenden wird, muss man es wohl noch gegen alle möglichen Fehleingaben absichern.

 

Ich bin die Einzige, die das verwenden wird, also könnte ich es schon so machen. Aber ich muss doch verdammtnochmal dieses Fenster irgendwie ansprechen können! Ich kann es doch auch in den Schnellzugriff einbauen. Ich hab jetzt mal alles durchprobiert, was irgendwie danach aussah und die schrägsten Fenster bekommen - das richtige aber nicht. Über die Benutzeroberfläche finde ich es wie in der Anlage. Ich möchte nicht glauben, dass ich mit drei Mausklicken etwas machen kann, das VBA nicht zugänglich ist.

 

Hallo Nigella,

wenn du mal rausfindest, wie dieses Dialogfeld heißt, lass es mich wissen. Mittlerweile hätte ich eine von-hinten-durch-die Brust-ins-Auge-Lösung zu bieten:

1. Du legst dir eine eigene Tastenkombination für das Öffnen des Dialogfeldes (ZeichnungErweitertesLayoutGröße) an.

2. Dein Makro endet mit:
Code:

(das wäre in dem Fall die Tastenkombi: Strg-Alt-ö)

Das Dokument muss das aktive Fenster sein, während das Makro läuft, denn Sendkeys sendet immer ans aktive Fenster. D.h. du kannst es nicht aus dem VBA-Editor heraus starten, sondern z.B. über ein Symbol in der Schnellzugriffsleiste.

Die auch nicht schlechteste Alternative wäre, in den Bildtools, die ja automatisch eingeblendet werden, wenn du das Bild selektierst, auf Format zu klicken und dort eins der beiden Drehfelder für Höhe / Breite zu verwenden.

 

Ich kann nicht fassen, dass man etwas über die Oberfläche klicken kann, was nicht oder schwer per VBA zu machen ist. Wasses nich alles gibt...

Erledigt.

(das wäre in dem Fall die Tastenkombi: Strg-Alt-ö)

Das Dokument muss das aktive Fenster sein, während das Makro läuft, denn Sendkeys sendet immer ans aktive Fenster. D.h. du kannst es nicht aus dem VBA-Editor heraus starten, sondern z.B. über ein Symbol in der Schnellzugriffsleiste.

Ich hab das hinter das Makro zum Bildeinfügen gebaut, der Code wird mir aber gleich rot gemacht. Vielleicht ein flascher Fe ler drin?

Das wäre in meinem Fall mehr statt weniger Arbeit. Also wenn wir sendkeys noch hinkriegen, wäre das optimal!

 

Hallo nigella,

da hab ich die Anführungszeichen vergessen. Mit folgendem Makro läufts so bei mir:
Code:

Und dran denken: Nicht vom VBA-Editor aus starten!

 

Jau! Mit Gänsefüßchen klappts. Also fast. Das Dialogfenster wird mir angeboten, aber mit der ersten Registerkarte "Position". Kann ich ihm noch sagen, dass ich gern die dritte Registerkarte "Größe" hätte? Googlen kann ich nur Lösungen zum Verweis auf selbst erstellte Userforms. Mit einem

dim diaDialog as Dialog
diaDialog = sendkeys...

und einem geplanten

diaDialog.TabControl1 = 2

bin ich nichts geworden. Ich weiß, ich bin zickig. Aber sonst dringt man ja auch nicht in die hinterste Ecke vor...

 

Hallo nigella,

in meinem Word 2010 haben die Microsofts dem Dialogfeld Tastatur anpassen die Bildtools gleich zweimal spendiert. Nur in der ersten gibt es auch die Registerkarte Größe. Der hab ich die Tastenkombination vergeben und bei mir kommt das Dialogfeld gleich mit der richtigen Registerkarte.

 

Das isser! Fühl dich geknutscht! Danke!