Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Rolf Grob am November 15, 2013, 06:20:30 Vormittag
-
Hallo Zusammen,
Ich bin ziemlicher Excel Neuling ;D.
Ich habe einen Code für MouseMove von Bildern in einer UserForm gefunden, und komme da nicht weiter. :'(
Meine Frage ist nun, Wie muss ich die Positionen und Grössen von z.b. drei Bildern in diesen Code schreiben.
Ich habe Image2, Image3 und Image4 in der gleichen UF, bei dem Eintrag "für dieses Bild statisch" habe ich leider gar keine Ahnung mehr,
ich habe keine Positionsangaben gefunden.
Es währe super wenn ich da etwas Hilfe bekommen könnte.
Der Code den ich gefunden habe, ist:
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.Image2.Left And _
X < Me.Image2.Left + Me.Image1.Width And _
Y > Me.Image2.Top And _
Y < Me.Image2.Top + Me.Image1.Height Then
Me.Image2.Visible = True
Else
Me.Image2.Visible = False
End If
'Me.Caption = "left: " & X & " - - - top: " & Y
End Sub
Keine Ahnung wie ich das ganze machen Soll. >:(
Vielen dank für eure Hilfe.
Gruss Rolli