Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Eingefügte u. verknüpfte Grafik anpassen
zurück: Auswahl in Indexmarke weiter: Probleme mit Suchen/Ersetzen per Makro (mit Platzhaltern) 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
Steffen Kuch
DV-Support inkl. VBA-Anfänger


Verfasst am:
09. März 2010, 17:14
Rufname:
Wohnort: Karlsruhe

Eingefügte u. verknüpfte Grafik anpassen - Eingefügte u. verknüpfte Grafik anpassen

Nach oben
       Version: Office 2k (2000)

Hallo!

Ich habe mit Hilfe des Makrorekorders und etwas Hirnschmalz folgendes VBA-Makro hinbekommen, dass "eingefügte" Grafiken anpasst. Funktioniert. Knackpunkt ist die Umwandlung vom InlineShape zu ShapeRange mit der Zeile
Code:
Selection.InlineShapes(1).ConvertToShape


Das komplette Makro:
Code:
Sub GrafikEditieren()
'
' GrafikEditieren Makro
' Makro aufgezeichnet am 05.03.2010 von DV
' Stand: 9.3.2010
 
    Selection.InlineShapes(1).Fill.Visible = msoFalse
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).Line.Weight = 0.75
    Selection.InlineShapes(1).Line.Transparency = 0#
    Selection.InlineShapes(1).Line.Visible = msoFalse
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
'   Mit .scale... bekomme ich eine Prozentuale Größenveränderung hin.
    Selection.InlineShapes(1).ScaleHeight = 70
    Selection.InlineShapes(1).ScaleWidth = 70
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
    Selection.InlineShapes(1).PictureFormat.CropRight = 0#
    Selection.InlineShapes(1).PictureFormat.CropTop = 0#
    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
'   In ein 'flexibles' Format bringen
    Selection.InlineShapes(1).ConvertToShape
'   Layouttyp festlegen.
    Selection.ShapeRange.WrapFormat.Type = wdWrapSquare
'   Nur Umbruch links
    Selection.ShapeRange.WrapFormat.Side = wdWrapLeft
'   Abstand links 1 cm, ansonsten 0 cm
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(1)
    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.AllowOverlap = False

End Sub


Versuche ich das Makro auf eine "eingefügte und verknüpfte" Grafik anzuwenden (Grafik wird vorher von mir markiert) erhalte ich in der Zeile
Code:
Selection.ShapeRange.WrapFormat.Type = wdWrapSquare

die Fehlermeldung "Befehl misslungen".
Hat jemand eine Idee, wie ich das obige Makro umschreiben muss, damit es auch bei "eingefügten und verknüpften" Grafiken funktioniert? Danke!
Seltsam ist noch, dass bei Word 2000 bei eingeschaltetem Makro-Rekorder das Layoutformat einer Grafik nicht verändert werden kann.... Confused

_________________
Gruß
Steffen Kuch



GrafikEinsetzen.gif
 Beschreibung:
 Dateigröße:  18.86 KB
 Angeschaut:  2532 mal

GrafikEinsetzen.gif




Zuletzt bearbeitet von Steffen Kuch am 11. März 2010, 11:54, insgesamt einmal bearbeitet
Steffen Kuch
DV-Support inkl. VBA-Anfänger


Verfasst am:
11. März 2010, 09:11
Rufname:
Wohnort: Karlsruhe


AW: Eingefügte u. verknüpfte Grafik anpassen - AW: Eingefügte u. verknüpfte Grafik anpassen

Nach oben
       Version: Office 2k (2000)

Guten Morgen!

Ich weiß, das Thema ist nicht gerade spannend, aber vielleicht doch noch jemand einen Tipp für mich? Danke!

_________________
Gruß
Steffen Kuch
Gast



Verfasst am:
14. März 2010, 01:40
Rufname:

AW: Eingefügte u. verknüpfte Grafik anpassen - AW: Eingefügte u. verknüpfte Grafik anpassen

Nach oben
       Version: Office 2k (2000)

Ging das bei dir mit anderen Inlineshapes (Bild in Zeile)?
Bei mir bricht der Code auch bei Bildern ab, die nicht verknüpft sind.
theoS
WORD/Excel Erfahren und VBA Bastler


Verfasst am:
15. März 2010, 01:00
Rufname: theo


AW: Eingefügte u. verknüpfte Grafik anpassen - AW: Eingefügte u. verknüpfte Grafik anpassen

Nach oben
       Version: Office 2k (2000)

Das mit den verknüpften Bildern geht deshalb nicht, weil Word hier nicht das Bild sondern ein Feld speichert:
(INCLUDEPICTURE "C:\\Pfad\\zu\\dem\\Bild.xyz \*MERGEFORMAT}
Bei Word 2000 hast du auch, soweit mir bekannt, keine Möglichkeit, manuell ein Bild einzufügen das nicht inline eingefügt wird.

Was soll das Makro eigentlich alles machen?
Wenn es um die Größe und den Textumbruch geht, würde ich immer die Möglichkeit eines Positionsrahmens in Betracht ziehen.
Ich hab mal ein wenig freestyle eine Formatvorlage angelegt mit einem Positionsrahmen in den ich dann mit dem Makro die Grafik ausschneide und in den Positionsrahmen einfüge. Ein einfach eingefügtes Bild würde durch diesen Vorgang schon auf die Größe des Positionsrahmens vergrößert, ein verknüptes muss man vorher vergrößern. Das machen die beiden Zeilen davor.
Code:
Sub BildgrAendern()

'

' Makro20 Makro

With Selection    'tut nur, wenn Bild auch markiert
.InlineShapes(1).Height = CentimetersToPoints(6.34)   
              'hier kannst du den Wert in cm reinschreiben
.InlineShapes(1).Width = CentimetersToPoints(6.34)
.Cut       'schneidet die Grafik aus
.Style = ActiveDocument.Styles("Grapfik")
  'weist die Formatvorlage zu, die in der Hauptsache aus einem Pos.rahmen besteht
.Paste    ' fügt das vergrößerte Bild in den Positionsrahmen ein
End With
End Sub


Ja, die Formatvorlage erstellst du indem du dir einen Postionsrahmen einfügst und den dann so formatierst wie du ihn haben willst (Umlauf, Größe, Position etc. Falls du keine Linie ums Bild haben willst, auch den Rahmen formatieren) du gibts dem Kind einen Namen, indem du den Namen in der Formatvorlagenlistbox überschreibst und mit Enter bestätigst.
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: Mergefield Fehlermeldung Unbekannter Op-Code für verknüpfte 2 otsch 109 30. Jan 2014, 15:10
Gast Mergefield Fehlermeldung Unbekannter Op-Code für verknüpfte
Keine neuen Beiträge Word Serienbriefe: Adressblock bei Serienbrief anpassen 7 Phillyman 10999 02. Jul 2012, 10:21
Steffen Kuch Adressblock bei Serienbrief anpassen
Keine neuen Beiträge Word Formate: Hilfe zu Grafik in Tabellenzelle mittig positionieren 2 Sunn2010 2775 07. Aug 2010, 10:33
Sunn2010 Hilfe zu Grafik in Tabellenzelle mittig positionieren
Keine neuen Beiträge Word Formate: Textmarken in verknüpfte Excel Tabelle in Word setzen 1 Daniel Albert 1719 18. Apr 2010, 12:36
Daniel Albert Textmarken in verknüpfte Excel Tabelle in Word setzen
Keine neuen Beiträge Word Formate: Kopfzeile; Formatierung an jeweiligen Abschnitt anpassen 1 haihappen 2528 16. Dez 2009, 10:23
haihappen Kopfzeile; Formatierung an jeweiligen Abschnitt anpassen
Keine neuen Beiträge Word Serienbriefe: Größe der Graphik automatisch anpassen 0 Struppi 2824 02. Jun 2009, 13:05
Struppi Größe der Graphik automatisch anpassen
Keine neuen Beiträge Word Formate: Excel-Tabelle als Grafik/Bild in Word auf Querformat 1 Phil1899 2120 31. März 2009, 22:29
dubbel Excel-Tabelle als Grafik/Bild in Word auf Querformat
Keine neuen Beiträge Word Formate: HILFE!!! Verknüpfte Excel Tabelle in Word ändert Format 0 Katharina0482 1011 05. Nov 2008, 17:51
Katharina0482 HILFE!!! Verknüpfte Excel Tabelle in Word ändert Format
Keine neuen Beiträge Word Formate: Seitenzahlen im Inhaltsverzeichnis automatisch anpassen 1 naddl88888 4548 28. Jul 2008, 21:19
Maulende Myrte Seitenzahlen im Inhaltsverzeichnis automatisch anpassen
Keine neuen Beiträge Word Serienbriefe: Grafik als Seriendruckfeld?? 9 annA_1985 1737 14. Jul 2008, 16:31
dollar Grafik als Seriendruckfeld??
Keine neuen Beiträge Word Formate: Pfad von normalemail.dotm im Outlook anpassen 0 wermiselli 7404 03. Jul 2008, 16:32
wermiselli Pfad von normalemail.dotm im Outlook anpassen
Keine neuen Beiträge Word Serienbriefe: Word verknüpfte Wenn-Bedingung <gelöst> 4 H3 1920 25. Jun 2008, 11:37
H3 Word verknüpfte Wenn-Bedingung <gelöst>
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks