UDF BildInZeile() prüft ob Bild in Zeile liegt
16.07.2010 12:59:12
NoNet
Hallo TM,
das muss man selbst programmieren, da es hierfür keine passende Funktion gibt. Hier ein kleines Code-Beispiel :
es wird geprüft, ob die oberen/unteren Koordinaten jedes Bildes in der Zeile liegen oder ob das Bild über die Koordinaten hinaus ragt.
Mit msoPicture werden nur "echte" Bilder und ClipArts geprüft, keine Autoforms, DropDowns etc. :
Sub BildTest()
MsgBox BildInZeile(4), , "Bild in Zeile 4 :"
MsgBox BildInZeile(8), , "Bild in Zeile 8 :"
MsgBox BildInZeile(22), , "Bild in Zeile 22 :"
End Sub
Function BildInZeile(lngZeile As Long) As Boolean
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Type = msoPicture Then 'nur BILDER, keine Autoforms, Dropdown etc. prüfen !
If (sh.Top >= Rows(lngZeile).Top And _
sh.Top = Rows(lngZeile).Top And _
sh.Top + sh.Height = Rows(lngZeile).Top + Rows(lngZeile).Height) Then
BildInZeile = True
End If
End If
Next
End Function
Gruß, NoNet