VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Grafiken gem. Hyperlinkadressen öffnen

Gruppe

Grafik

Bereich

Grafikimport

Thema

Grafiken gem. Hyperlinkadressen öffnen

Problem

Auf Schaltflächenklick sollen alle mit Hyperlink verbundenen Bilder der ausgewählten Zellen geöffnet werden

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub LoadPictures()
   Dim rng As Range
   For Each rng In Selection.Cells
      Shell "hh " & rng.Hyperlinks(1).Address, vbNormalFocus
   Next rng
End Sub

    


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