Herbers Excel-Forum - das Archiv

Bild mittig der Zelle ausrichten!

Bild

Betrifft: Bild mittig der Zelle ausrichten!
von: Brit

Geschrieben am: 16.02.2005 10:28:39
Hallo!
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

Bild

Betrifft: AW: Bild mittig der Zelle ausrichten!
von: Josef Ehrensberger

Geschrieben am: 16.02.2005 10:39:27
Hallo Brit!
Versuchs mal so.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim var As Variant
Dim sFiles As String
Dim shp As Picture
If Target.Column > 1 Then
Exit Sub
End If
On Error Resume Next
var = Application.GetOpenFilename(sFiles)
Set shp = ActiveSheet.Pictures.Insert(var)
With shp
.Top = Target.Top
.Left = .Left + (Target.Width / 2) - (shp.Width / 2)
End With
Target.RowHeight = 24
ActiveCell.Offset(0, 1).Activate
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Bild mittig der Zelle ausrichten!
von: Brit
Geschrieben am: 16.02.2005 11:03:11
Hallo Sepp,
DANKE!
Klappt super!
Brit
 Bild