VBA-Beispiel 118
mail schreiben
mail schreiben

UserForm Bild nur beim überfahren mit der Maus anzeigen

Mit MouseMove wird die Position des Mauszeigers ermittelt. Stimmt die mit der Position des Bildes überein, wird die Eigenschaft Visible auf True gestellt.

Mit einem Klick auf das Bild wird eine Webseite aufgerufen.
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)

'für dieses Bild statisch:
'If X > 59 And X < 346 And Y > 60 And Y < 139 Then

'für jede Bildgröße:
If X > Me.Image1.Left And _
   X < Me.Image1.Left + Me.Image1.Width And _
   Y > Me.Image1.Top And _
   Y < Me.Image1.Top + Me.Image1.Height Then

  Me.Image1.Visible = True
Else
  Me.Image1.Visible = False
End If

'Me.Caption = "left: " & X & " - - - top: " & Y
End Sub



Private Sub Image1_Click()
Dim strURL As String

On Error GoTo Fehler

strURL = "http://vba1.de/"
ActiveWorkbook.FollowHyperlink Address:=strURL, NewWindow:=True
Exit Sub

Fehler:
    MsgBox "Es konnte keine Verbindung hergestellt werden!" _
          & vbNewLine & Error, vbExclamation, "Fehler:"
End Sub

Download:   vba118.zip