Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Grafiken gem. Hyperlinkadressen öffnen

Gruppe

Grafikimport

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