AW: Positionieren von eingefügten Bildern
16.06.2008 18:53:00
eingefügten
Hallo Alex,
die Positionierung der Bilder erfolgt halt so genau, wie du sie mit der Maus/Tastatur-Pfeiltasten positionieren kannst.
Einheitlich positionieren kann man Bilder dann noch mit dem Ausrichten-Tool der Symbolleiste Zeichnen oder per Makro.
Nachfolgend 2 Makros mit dennne du kleine Grafiken in Zellen rechts-oben positioniern kannst.
Gruß
Franz
Sub BildRechtsOben()
' Das aktuell selektierte Bild wird rechts-oben in der Zelle positioniert
Dim objShape As Shape, objZelle As Range
On Error GoTo Fehler
Set objShape = ActiveSheet.Shapes(Selection.Name)
With objShape
Set objZelle = .TopLeftCell
.Top = .TopLeftCell.Top
.Left = objZelle.Left + objZelle.Width - .Width
End With
Fehler:
If Err.Number 0 Then
MsgBox "Vor dem Start des Makros ein zu positionierendes Grafik-Objekt wählen!"
End If
End Sub
Sub BilderNRO_Spalte()
' alle Bilder in der aktiven spalte werden in den Zellen rechts oben angeordnet
' Voraussetzung: linke-obere Ecke der Bilder ist innerhalb der Spalte
Dim objShape As Shape, objZelle As Range, lngSpalte As Long
lngSpalte = ActiveCell.Column
For Each objShape In ActiveSheet.Shapes
With objShape
Set objZelle = .TopLeftCell
If .TopLeftCell.Column = lngSpalte Then
.Top = .TopLeftCell.Top
.Left = objZelle.Left + objZelle.Width - .Width
End If
End With
Next
End Sub