Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Imageinout()
   Dim pct As Picture
   Set pct = ActiveSheet.Pictures.Insert(Range("B1").Value)
   Application.Wait (Now + TimeSerial(0, 0, 1))
   pct.Delete
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und Ansicht