BeforeDoubleClick

Bild

Betrifft: BeforeDoubleClick von: Brit
Geschrieben am: 16.02.2005 08:18:28

Guten Morgen!
Ich möchte nach Doppelklick ein Bild suchen und in die Tabelle einfügen!
Der Doppelklick darf aber nur für die Zellen in Spalte A zugelassen werden, da das Bild auch nur in diesen Zellen angezeigt werden soll!
Das folgende Makro erlaubt aber den Doppelklick in der ganzen Tabelle, was aber nicht zufriedenstellend ist.
Wie kann ich das beschränken?

Vielen Dank schon mal im Voraus!
Brit










Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim var As Variant
   Dim sFiles As String   
   On Error Resume Next
   var = Application.GetOpenFilename(sFiles)
   ActiveSheet.Pictures.Insert var   
End Sub

Bild


Betrifft: AW: BeforeDoubleClick von: Harald E
Geschrieben am: 16.02.2005 08:31:32

Moin Brit,

probier mal:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim var As Variant
Dim sFiles As String   
If target.column > 1 or target.count > 1 then
exit sub
   On Error Resume Next
   var = Application.GetOpenFilename(sFiles)
   ActiveSheet.Pictures.Insert var   
End Sub


Gruß
Harald


Bild


Betrifft: AW: BeforeDoubleClick von: Brit
Geschrieben am: 16.02.2005 08:46:16

Hallo Harald!
Mit dieser If-Abfrage öffnet sich mein Dialogfenster zum Suchen der Bilder gar nicht mehr( Auch nicht in Spalte A! Es passiert nichts nur das ich den Cursor dann in der Zelle habe, die ich doppelt geklickt habe!)!
Nehme ich das if weider raus kann ich alles nach altbekannter Weise vornehmen, nun aber in der gesamten Tabelle!

Von der Logik her müsste es ja richtig sein, aber????!!!
Gruß und Danke
Brit


Bild


Betrifft: AW: BeforeDoubleClick von: Harald E
Geschrieben am: 16.02.2005 08:50:58

Hi Brit,

sorry. Bin noch nicht richtig wach.

end if nach exit sub sollte das Problem lösen.

Harry


Bild


Betrifft: Danke ...aber noch etwas!!? von: Brit
Geschrieben am: 16.02.2005 09:03:44

Vielen Dank!
Klappt jetzt super!
Vieleicht kannst du mir ja noch weiter helfen:
Dieses Bild ist nun ein wenig größer(höher) als die Zeilenhöhe!
Kann ich die Zeilenhöhe automatisch nach Bildhöhe anpassen?
Brit


Bild


Betrifft: Passe von: Harald E
Geschrieben am: 16.02.2005 09:24:00

Brit,

da muss ich passen.
Würde vorschlagen in hiesiger Selbsthilfe Seite zu stöbern.
Bringt das nix.....neuen Thread "Zeilenhöhe an Grafik anpassen" eröffnen (man soll ja ans Archiv denken ;-)))

Gruß
Harald


Bild


Betrifft: AW: Zeilenhöhe anpassen von: EtoPHG
Geschrieben am: 16.02.2005 09:52:43

Hallo Brit,

Für das automatische Anpassen der Zeilenhöhe, würde der Code dann so aussehen:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim var As Variant
Dim sFiles As String
Dim dHeight As Double
If Target.Column > 1 Or Target.Count > 1 Then
    Exit Sub
End If
   On Error Resume Next
   var = Application.GetOpenFilename(sFiles)
   ActiveSheet.Pictures.Insert var
   dHeight = ActiveSheet.Pictures.Height
   Target.Rows.RowHeight = dHeight
End Sub


Gruss Hansueli


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dauerhaftes Format"