Autor
|
Thema: Alle Bilder im Word formatieren (14959 mal gelesen)
|
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 09. Mrz. 2009 13:58 <-- editieren / zitieren --> Unities abgeben:
|
ledock Mitglied Dipl. Ing. Maschinenbau
Beiträge: 506 Registriert: 12.11.2004
|
erstellt am: 09. Mrz. 2009 14:43 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Hallo Ömer, wenn du in deinem Dokument ein Bild anklickst, dann Rechtsklick, dann Bild, dann komprimieren, dann alle Bilder im Dokument, Drucke, Bilder komprimieren. Dann macht Word automatisch alle Bilder nur so groß wie sie für einen ordentlichen Ausdruck benötigt werden. Grüße Matthias ------------------ Grüße Matthias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ledock Mitglied Dipl. Ing. Maschinenbau
Beiträge: 506 Registriert: 12.11.2004 Win 10 64bit Core I7 9700K 16HBRAM Intel UHD Graphics 630 Direct Modelling Express
|
erstellt am: 09. Mrz. 2009 14:45 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Hallo Ömer, wenn du in deinem Dokument ein Bild anklickst, dann Rechtsklick, dann Bild, dann komprimieren, dann alle Bilder im Dokument, Drucke, Bilder komprimieren. Dann macht Word automatisch alle Bilder nur so groß wie sie für einen ordentlichen Ausdruck benötigt werden. Grüße Matthias ------------------ Grüße Matthias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 09. Mrz. 2009 14:45 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
|
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 09. Mrz. 2009 14:47 <-- editieren / zitieren --> Unities abgeben:
|
ledock Mitglied Dipl. Ing. Maschinenbau
Beiträge: 506 Registriert: 12.11.2004
|
erstellt am: 09. Mrz. 2009 14:47 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
|
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 09. Mrz. 2009 14:54 <-- editieren / zitieren --> Unities abgeben:
|
ledock Mitglied Dipl. Ing. Maschinenbau
Beiträge: 506 Registriert: 12.11.2004
|
erstellt am: 09. Mrz. 2009 16:03 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Tut mir leid, da muss ich passen. IMHO ist die einzige Möglichkeit die Bilder vor dem Einfügen ins Word mit einem passenden Programm zu verändern. Hilft dir sicherlich nicht viel weiter...
------------------ Grüße Matthias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 09. Mrz. 2009 16:26 <-- editieren / zitieren --> Unities abgeben:
|
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 2003-2010 XP(x86) & WIN7(x64)
|
erstellt am: 09. Mrz. 2009 17:11 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Mahlzeit, mein Geschmiere: Code: Option ExplicitSub BildGroessen() Dim a% 'relative Höhe/Breite (% der Originalgröße) For a = 1 To InlineShapes.Count If ActiveDocument.InlineShapes(a).Type = wdInlineShapePicture Then ActiveDocument.InlineShapes(a).ScaleHeight = 25 ActiveDocument.InlineShapes(a).ScaleWidth = 25 End If Next a 'fixe Höhe/Breite (Größe in Pixel) falls das gewünscht, bitte Kommentarzeichen ändern. 'For a = 1 To InlineShapes.Count ' If ActiveDocument.InlineShapes(a).Type = wdInlineShapePicture Then ' ThisDocument.InlineShapes(a).Height = 50 ' ThisDocument.InlineShapes(a).Width = 50 ' End If 'Next a End Sub
Achtung: testen in Kopie! WordArt sind z.B. auch betroffen. Ich hab mit Word nicht viel am Hut, daher hab ich auch mal Hr. google befragt. Seine Antwort: http://www.spotlight-wissen.de/archiv/message/157952.html war zu meiner Überraschung ;-) recht ähnlich
Ich denke, mit einem von beidem kann man was anfangen. [rredit] Ergänzung: Mit Bordmitteln, ohne VBA: Wenn die Bilder nicht auf "Mit Text in Zeile" stehen, sondern z.B. auf "Hinter dem Text", kann man mittels gedrückter Strg-Taste auch mehrere Bilder markieren und dann mit RMT auf "Größe" zugreifen -> Änderung auf 25% problemlos möglich. Gesagtes gilt für Word 2007, drunter kann ich nicht testen... thx für den Denk-Anstoß an Cadzia! [/rredit]
------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info Excel -Suche RuA-Suche FAQ-ACAD Hilfe zu CAD.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Technische Projektleitung Anlagenbau und Infrastruktur | Wir, die Stern-Wywiol Gruppe, sind eine dynamische, konzernunabhängige Unternehmensgruppe mit 12 Spezialfirmen in Deutschland und 19 Auslandsfilialen weltweit. Unser Kerngebiet sind Zutaten für Lebensmittel und Tierernährung. In der Abteilung SternGrundbesitz befassen wir uns mit der Standortentwicklung in Ahrensburg. In der Rolle der technischen Projektleitung verantworten Sie mit Ihrem ... | Anzeige ansehen | Leitung, Teamleitung |
|
ledock Mitglied Dipl. Ing. Maschinenbau
Beiträge: 506 Registriert: 12.11.2004
|
erstellt am: 10. Mrz. 2009 07:17 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
ich dachte, da hab ich mal ne tolle und schnelle Antwort parat und dann kommt die Rübe und dämpft meinen Ego wieder dermaßen mit so ner Antwort. VBA, was ist den das ??? ------------------ Grüße Matthias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |