Unter nachfolgenden Unter-Menu's sind jeweils Tips & Tricks zu finden, die das tägliche Arbeiten damit in einem Unternehmen erleichtern sollen. Dann liegt auch einmal eine längere Café-Pause drin, wenn der Computer in der Zwischenzeit die mühsahmen routine Arbeiten unbeaufsichtigt von selbst erledigt.
Viel Erfolg damit!
Sub InsertPicRange_OK() Dim pic As Picture, rng As Range ImagePfad = ThisWorkbook.Path & "\icon-pdf.png" Set pic = ActiveSheet.Pictures.Insert(ImagePfad) Set rng = ActiveWindow.RangeSelection With pic .Top = ActiveCell.Top .Left = ActiveCell.Left .ShapeRange.LockAspectRatio = msoFalse ' ' Resize the picture's Height and Width ' to match the Current Range. ' .ShapeRange.Height = rng.RowHeight .ShapeRange.Width = rng.Width .Placement = xlMoveAndSize ' .Cut ' End With ActiveSheet.Pictures.Paste.Select ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _ "025.pdf" ActiveCell.Offset(0, 1).Select End Sub |
Diese Grafik sollte dann der Zellgrösse von Excel entsprechend eingefügt sein. Die Grafik muss im gleichen Verzeichnis wie das Excel-Dokument (.xlsm) mit dem beinhalteten Makro vorhanden sein.
Mit der Tastenkombination ALT-F11 wird die Ansicht in den Makroeditor gewechselt. Dort erstellst Du das Makro manuell per Aufruf des Menus "Einfügen > Modul > Ctrl-V > Ctrl-S > " + Button "Nein" + "Alt-Q".
Hier das ganze zum Download / Herunterladen und als Beispiel zum Testen.
Jetzt nur noch das Makro "InsertPicRange_OK" ausführen
und die Grafik ist verlinkt im Excel-Dokument.
Und jetzt kommt der Klou der ganzen Sache !!!
Das Excel-Dokument kann als Web(.html)-Dokument abgespeichert werden. Wozu das?
Jetzt funktioniert das ganze wie eine statische Webseite. Die Aktuallisierungen der Daten finden im Excel Dokument statt und kann dann lokal im hauseigenen Internet als Webseite abgespeichert und verwendet werden.