Hallo VBA Begeristerte,
ich bitte um Hilfe für folgendes Problem:
In Word habe ich ein Bild mit Grafik einfügen eingefügt.
Dieses habe ich markiert.
Nun möchte ich mittels Makro dieses Bilde in Layout passend und Höhe 200 formatieren.
Ich habe folgendes Makro aufgenommen:
Sub Grafik_formatieren
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
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
Selection.InlineShapes(1).Height = 200
Selection.InlineShapes(1).Width = 1135.85
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#
Selection.InlineShapes(1).Left = 0#
Selection.InlineShapes(1).Top = 0#
Selection.ShapeRange.WrapFormat.Type = wdWrapTight
End Sub
Layout passend ist:
Selection.ShapeRange.WrapFormat.Type = wdWrapTight
Höhe:
Selection.InlineShapes(1).Height = 200
Den Rest des Codes kann man glaube ich löschen.
Mein Problem ist, das ich viele Bilder in diesem Schriftstück habe, ich jeweils nur das markierte formatieren will.
Wer weiß Rat.
Für einen Support bin ich dankbar.
mfg kalle3