Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bild mit Makro einfügen - Größe ändern
zurück: Unterschrift in Dokument einfügen weiter: ersetzen liste von wörtern durch kapitälchen in fußnoten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
frb
Office Rookie


Verfasst am:
09. Feb 2010, 17:30
Rufname:

Bild mit Makro einfügen - Größe ändern - Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2007

Hallo,

nachdem mich das Forum hier schon öfter weitergebracht hat, außer heute, mußte ich mich nun doch mal anmelden. Wie gesagt, habe ich zu meinem aktuellen Problem noch keine Lösung hier gefunden.
Die Datei im Anhang hat drei Schaltflächen, mit denen unser Kunde Bilder einfügen kann. Die orig. Bilder beim Kunden sind ziemlich groß, werden aber durch das Makro entsprechend in der Größe geändert und an die entsprechende Position im Formular gebracht. Der Kunde hatte diese Word-Vorlagen noch von seinem letzten "Lieferanten" und hat uns diese freundlicherweise überlassen. Er möchte nun das die Bilder kleiner werden, dabei natürlich das Seitenverhältnis beibehalten wird. Ich finde im Code aber nirgends etwas wo die Größe der Bilder definiert wird. Kann mir hier einer weiterhelfen?
Ich hoffe ich konnte mich einigermaßen verständlich ausdrücken. Nun kenne ich mich überhaupt nicht mit VBA aus. Ich weiß nur, das wir Office 2007, der Kunde aber 2000 hat. Des Weiteren wird beim Klick auf einer der Schaltflächen der Unterordner "Image" des Verzeichnisses geöffnet, aus dem die Word-Datei geöffnet wurde.
Beispiel: \Eigene Dateien\Worddatei.doc
Bild einfügen: \Eigene Dateien\Image\

Vielen Dank schon mal.
frb
Office Rookie


Verfasst am:
09. Feb 2010, 17:34
Rufname:


AW: Bild mit Makro einfügen - Größe ändern - AW: Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2007

Wie kann ich hier eine Datei anhängen/hochladen?
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
10. Feb 2010, 00:04
Rufname:
Wohnort: Leipzig

AW: Bild mit Makro einfügen - Größe ändern - AW: Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2007

Hallo,

zum Upload kannst Du Dich hier anmelden:

Dateien hochladen

Gruß
Lisa
frb
Office Rookie


Verfasst am:
12. Feb 2010, 12:56
Rufname:

AW: Bild mit Makro einfügen - Größe ändern - AW: Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2007

Danke Lisa.

Jetzt aber...
Hier also die Datei.



FrageForum.doc
 Beschreibung:

Download
 Dateiname:  FrageForum.doc
 Dateigröße:  60.5 KB
 Heruntergeladen:  239 mal

Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
13. Feb 2010, 17:50
Rufname:
Wohnort: Leipzig

AW: Bild mit Makro einfügen - Größe ändern - AW: Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2007

Hallo frb,

das Dokument funktioniert unter Word 2000, wie beschrieben. Die Bilder werden in der Größe an die vorhandenen Rahmen angepasst.
Zitat:
Ich finde im Code aber nirgends etwas wo die Größe der Bilder definiert wird.

Das kann ich nicht glauben. Im Modul ThisDocument findet sich sogar 3-fach redundant, nämlich in allen drei CommandButton-Click-Prozeduren der Code, in dem die Größe festgelegt wird:
Code:
Hoehe_Max = 100
Breite = meinBild.Width
Hoehe = meinBild.Height
Skalierungsfaktor = Hoehe_Max / Hoehe
meinBild.Width = Breite * Skalierungsfaktor
meinBild.Height = Hoehe * Skalierungsfaktor

Das sind ja einfache mathematische Rechnereien, dort kannst Du beliebig anpassen.
Nur kann ich aus Deiner Frage überhaupt nicht erkennen, was Du überhaupt ändern willst.

Gruß
Lisa
frb
Office Rookie


Verfasst am:
18. Feb 2010, 12:09
Rufname:

AW: Bild mit Makro einfügen - Größe ändern - AW: Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2007

Danke, Problem hat sich gottseidank mittlerweile erledigt.
Das mit der Bildhöhe 100 habe ich irgendwie lange nicht kapiert.
Kei
Gast


Verfasst am:
11. März 2010, 12:39
Rufname:

AW: Bild mit Makro einfügen - Größe ändern - AW: Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2003

Hallo!

ich nutze Word 2003

Private Sub CommandButton11_Click()

Zitat:
Private Sub CommandButton11_Click()

Dim Pfad
Dim Dateiname As String
Dim Breite As Integer
Dim Hoehe As Integer
Dim Hoehe_Max As Integer
Dim Skalierungsfaktor As Double

Pfad = ActiveDocument.Path + "\Image\" ' CurDir

With Dialogs(wdDialogFileOpen)
.Name = Pfad
If .Display = -1 Then
Dateiname = .Name
End If
If Dateiname = "" Then
Exit Sub
End If
End With

ActiveDocument.Shapes("Text Box 46").Select
Selection.ShapeRange.Select

Set meinBild = Selection.InlineShapes.AddPicture(FileName:=Pfad + Dateiname, LinkToFile:=False, SaveWithDocument:=True)


Hier stoppt das Compilieren!

>>>Set meinBild = Selection.InlineShapes.AddPicture(FileName:=Pfad + Dateiname, LinkToFile:=False, SaveWithDocument:=True) << warum??
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
12. März 2010, 20:13
Rufname:
Wohnort: Leipzig


AW: Bild mit Makro einfügen - Größe ändern - AW: Bild mit Makro einfügen - Größe ändern

Nach oben
       Version: Office 2007

Hallo Kei,

gibt's denn den UnterPfad ...\Image\... bei Dir? Ansonsten die Variablen ändern.
Und verknüpf die Variable besser mit dem &-Operator, also Pfad & Dateiname.

Gruß
Lisa
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Word-Serienbrief: jpg automatisert einfügen 4 JOE_NDS 5016 01. Okt 2010, 17:56
Gast Word-Serienbrief: jpg automatisert einfügen
Keine neuen Beiträge Word Serienbriefe: Einfügen versch. Adressen aus einer Datenqu. in ein Dokument 9 Gast 920 04. Nov 2009, 15:02
charlybrown Einfügen versch. Adressen aus einer Datenqu. in ein Dokument
Keine neuen Beiträge Word Serienbriefe: Makro ausführen bei Seriendruck in neues Dokument 1 websven 3359 09. Okt 2009, 09:51
klein-artur Makro ausführen bei Seriendruck in neues Dokument
Keine neuen Beiträge Word Serienbriefe: seriendruck - bilder einfügen - rotes x 2 Gast20 4523 12. Aug 2009, 10:33
Gast seriendruck - bilder einfügen - rotes x
Keine neuen Beiträge Word Serienbriefe: Bilder in Serienbrief einfügen 4 Konte 10453 05. Aug 2009, 15:28
charlybrown Bilder in Serienbrief einfügen
Keine neuen Beiträge Word Serienbriefe: Formatvorlage für Serienbriefe im nachhinein ändern 1 worf 3061 22. Mai 2009, 23:37
charlybrown Formatvorlage für Serienbriefe im nachhinein ändern
Keine neuen Beiträge Word Serienbriefe: Serienfeld nachträglich automatisch ändern? 8 Saft 2129 11. Feb 2009, 14:38
Saft Serienfeld nachträglich automatisch ändern?
Keine neuen Beiträge Word Serienbriefe: Serienbrief: Vollständige Empfängerliste als Feld einfügen 2 Gast2008 2860 23. Okt 2008, 10:37
Auch Gast Serienbrief: Vollständige Empfängerliste als Feld einfügen
Keine neuen Beiträge Word Serienbriefe: Anrede einfügen 0 ArianeH 910 27. Aug 2008, 11:47
ArianeH Anrede einfügen
Keine neuen Beiträge Word Serienbriefe: Wenn dann Textbaustein / Autotext einfügen 0 miricoleo 4173 01. Dez 2007, 21:04
miricoleo Wenn dann Textbaustein / Autotext einfügen
Keine neuen Beiträge Word Serienbriefe: Dateiname für Bild in Serienbrief zusammensetzen 1 Gast 713 17. Jul 2007, 17:21
Betty2004 Dateiname für Bild in Serienbrief zusammensetzen
Keine neuen Beiträge Word Serienbriefe: Datenbank einfügen klappt nicht mehr! 2 Schwertfeger 1321 24. März 2007, 21:32
Schwertfeger Datenbank einfügen klappt nicht mehr!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA