---

Hallo Zusammen,
ich habe ein Problem mit Excel und WORD.
Ich arbeite in WORD habe dort ein Makro welches Fotos in ein WORD-Dokument genauer in einen Positionsrahmen einfügt und füge dieses Foto im selben Arbeitsgang in eine Zelle einer Excel-Tabelle ein.
Das Foto ist aber einiges zu groß für die Zelle - also muss ich es verkleinern. Das Makro selbst habe ich unter Excel bereits aufgezeichnet.

Trotz der nachfolgenden Zuweisungen, welche bei allen anderen Aktionen in Excel in Ordnung waren, bekomme ich bei den ...ShapeRange... den Laufzeitfehler '438'

Objekt unterstützt diese Eigenschaft oder Methode nicht.

sfile = "Katastrophennummern.xls"
sWorkbook = appExcel.Workbooks(sfile)

sWorkbook.Selection.ShapeRange.LockAspectRatio = msoTrue
sWorkbook.Selection.ShapeRange.Height = 105.75
sWorkbook.Selection.ShapeRange.Width = 141#
sWorkbook.Selection.ShapeRange.Rotation = 0#

Was muss ich noch anpassen, dass WORD VBA kapiert, was ich will?

Ich danke Euch im Voraus ...

Viel Grüße aus der Wetterau bzw. Hessen

------------------
Gemeinsam sind wir stark

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wetterau-Wolf und Willkommen auf CAD.de!

Hm... so ins Blaue hinein ist es schwierig, Deine Frage zu beantworten . Zunächst benötigst Du für die Größenänderung nur diesen

Code:

---

sWorkbook.Selection.ShapeRange.Height = 105.75
sWorkbook.Selection.ShapeRange.Width = 141#

---

Die Rotation wirst Du wohl kaum ändern wollen? Also raus damit - wie auch hier zu lesen.

An welcher Stelle genau kommt der Laufzeitfehler, in welcher Zeile?

Ich vermute, das Du das ShapeRange-Objekt exakt bezeichnen musst ("Bild1", "Bild2",...). Nimm' mal eine beliebige Mappe mit zwei Bildern drin, starte die Makro-Aufzeichnung und verschiebe beide Bilder, ändere die Größe, Stop. Was spuckt der Recorder aus? Ich habe hier xls 2007 - irgendwie reagiert der Recorder nicht auf die Änderungen am Bild.

Gruß
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP