Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
HasPicture
Aus einer Frage in einem Forum ...
Eine Funktion, die überprüft, ob eine Excel-Zelle ein Bild enthält. Hier ein
Ansatz ...
Option Explicit
Sub CheckForPicture()
MsgBox HasPicture(ActiveCell)
End Sub
Public Function HasPicture(rng As Excel.Range) As Boolean
Dim item As Picture
For Each item In ThisWorkbook.ActiveSheet.Pictures
If item.TopLeftCell.Address = rng.Address Then
HasPicture = True
Exit For
End If
Next
End Function
© 2001 -
by Thomas Risi