Thomas Risi Softwareentwicklung

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

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)