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

Beiträge aus den Excel-Beispielen zum Thema "Formatabfrage mittels Wenn-Dann"