Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild per Makro verkleinern und positionieren

Bild per Makro verkleinern und positionieren
17.10.2014 14:33:52
Manu
Hallo zusammen,
habe folgendes Problemchen bei dem mir der ein oder andere Profi bestimmt wieder helfen kann. Die Lösungen im Netz helfen mir leider nicht weiter. Zumal ich, sobald ich den Makrorekorder starte, nicht mehr auf das Bild zugreifen kann.
Nun zu meinem Hauptproblem:
Per Seriendruckfeld füge ich ein Bild in Word ein. Dieses Bild ist von den Abmessungen leider sehr groß. Es sollte max 5 cm hoch sein und sich automatisch an einem bestimmten platz positionieren. Ich habe leider nicht die Möglichkeit, dass Bild vorher zu bearbeiten. Es muss also über Makro laufen.
Vielen Dank im Voraus!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild per Makro verkleinern und positionieren
17.10.2014 18:31:48
Tino
Hallo,
kannst mal diesen Code testen
Sub Test()
Dim sngPosRow%, oShabe As Shape
Const conAbstandRow% = 20 'Abstand
Const conPosCol% = 20
Const conSollGr_cm# = 5 'größe in cm
Const conFaktor# = 0.035277778 'Faktor
sngPosRow = conAbstandRow 'erste Pos. von oben
With Tabelle1 'Tabelle anpassen
For Each oShabe In .Shapes
If oShabe.Type = msoPicture Then
With oShabe
.LockAspectRatio = msoFalse
.Height = conSollGr_cm / conFaktor
.Width = conSollGr_cm / conFaktor
.Top = sngPosRow
.Left = conPosCol
sngPosRow = .Height + .Top + conAbstandRow
End With
End If
Next oShabe
End With
End Sub
Gruß Tino

Anzeige
AW: Bild per Makro verkleinern und positionieren
20.10.2014 10:17:56
Manu
Hallo Tino,
folgende Anzeige erscheint:
Laufzeitfehler 424
Objekt erforderlich
Ich bin mir sicher es ist fasst vollbracht!
LG

kenne Deine Datei nicht um Hilfreich zu sein! oT.
20.10.2014 11:02:09
Tino

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige