Weiß jemand, wie man feststellen kann ob in einer bestimmten Zeile ein Bild ist
so was wie istbild.rows(1)
?
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ß, NoNetDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen