Bild mittig der Zelle ausrichten!
16.02.2005 10:28:39
Brit
Ich habe folgendes Problem:
Ich suche ein Bild und füge das in die Zelle ien, die Doppeltgeklickt wurde!
Das klappt ja auch super! Nun ist das Bild aber am linken Rand der Zelle.
Wie kriege ich das Bild automatisch in die Mitte der Zelle?
Ich versuche es mit "Picture.ShapeRange.IncrementLeft 50" aber da passiert nichts; was ist falsch?
Vielen dank
Brit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim var As Variant
Dim sFiles As String
If Target.Column > 1 Then
Exit Sub
End If
On Error Resume Next
var = Application.GetOpenFilename(sFiles)
ActiveSheet.Pictures.Insert var
Picture.ShapeRange.IncrementLeft 50
Target.RowHeight = 24
ActiveCell.Offset(0, 1).Activate
End Sub