Hallo zusammen,
ich habe in einer Tabelle in zwei Spalten InlineShapes eingefügt. Nun möchte ich ausschließlich in einer Spalte diese Bilder skalieren. Dafür habe ich die folgende Routine:
Sub Skalieren(scal As Single)
Dim objImageShape As InlineShape, rng As Range
ActiveDocument.Tables(1).Columns(3).Select
Set rng = selection.Range
For Each objImageShape In rng.InlineShapes
With objImageShape
.ScaleWidth = .ScaleWidth * scal
.ScaleHeight = .ScaleHeight * scal
End With
Next
End Sub
D.h., die Bilder in Spalte 3 sollen skaliert werden mit Faktor scal. Die Bilder, die sich in Spalte 2 befinden, sollen ihre Größe behalten.
Wenn ich aber diese Funktion anwende, wird sofort begonnen, das erste Bild in Spalte 2 zu skalieren. Letztendlich werden ALLE Bilder in der Tabelle skaliert...
Was ist da falsch?
Grüße-
Dietrich