ico-Datei mit VBA speichern und als Icon verwenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,

so geht das nicht. Du kannst nicht einfach irgendeine Grafik in Deiner Tabelle ablegen. Mit dieser Art und Weise kann man kein Icon ablegen.

ICO-Dateien enthalten Symbole und stellen eine bestimmte Form von Dateiart dar. Sie sind der Regel 16x16, 32x32 oder 64x64 Bit groß. Wobei ich in der Neuzeit auch schon abweichende Größen verwendet hatte, das funktioniert jetzt auch.
Aber nicht so ein Leuchtturm....

Erstelle ein Image-Objekt und verlinke Deine gewünschte ICO-Datei. Am besten änderst Du einfach in der beigefügten Datei das von mir schon eingefügte Objekt Eigenschaften-Picture...
Es muss vom Typ Symbol sein, sonst kannst Du es m.E. nicht als Shortcut verwenden. ICO-Datei haben auch eine Transparent-Eigenschaft.

Wahrscheinlich gibt es jetzt ein Problem. Du hast keine passende ICO-Datei. Stimmt's?
Wenn ich das mache, erstelle ich mir über GIMP ICO-Formate aus PNG-, BMP- oder JPG-Bildern. So hatte ich es auch mit dem Freigericht-Wappen gemacht.

Du kannst es aber auch mal mit BMP (Bitmap) probieren. Scheint wohl doch zu gehen......

https://www.herber.de/bbs/user/165767.xlsm

Viele Erfolg noch.
Karl-Heinz

Code:

Sub LoescheLink()
' Lösche eine Shortcut-Datei
  With CreateObject("wscript.Shell").SpecialFolders
       If Dir$(.Item("Desktop") & "\Bilder.lnk") <> "" Then
          Kill .Item("Desktop") & "\Bilder.lnk"
       End If
  End With
End Sub

Hallo Stefan,

für eine Linkdatei auf dem Desktop muss Du schon eine Ico-Datei parat haben. nur aus dem Picture lässt sich das m.E. nicht machen.

https://www.herber.de/bbs/user/165763.xlsb

Hier eine Möglichkeit, so eine Ico-Datei und eine Linkdatei aus einem IconElement in einer Tabelle zu erstellen und im TEMP-Verzeichnis zu speichern.

Code:


Sub LinkAnlegen()
' Legt eine Verknüpfung mit einem Icon aus dieser Datei auf dem Desktop an
  Dim sLinkFile As String, sFilename As String, oPic As Object, sWkB As String

 ' ggf.anpassen!!!
  sLinkFile = Environ("Temp") & "\Freigericht.ico"              ' Ico-Dateiname
  sFilename = "Mein-Beispiel.lnk"                               ' Dateiname des Links
  Set oPic = Sheets("Tabelle1").Image2.Picture                  ' Tabelle, Image
  sWkB = ThisWorkbook.FullName                                  ' Verknüpfte Datei
  
  With CreateObject("WScript.Shell")
       If Dir$(.SpecialFolders("Desktop") & "\" & sFilename) <> "" Then
          Exit Sub                                              ' Nur ein mal machen
       End If
       With .CreateShortcut(.SpecialFolders("Desktop") & "\" & sFilename)
           .TargetPath = sWkB                                   ' Verküpfte Datei
'          .Arguments = "-c"
'          .WorkingDirectory = "c:\"
           .WindowStyle = 3  ' 3=Maximized 7=Minimized 4=Normal ' Anzeigeform
'          .hotkey = "ALT+CTRL+F"                               ' Hotkey kreieren
           SavePicture oPic, sLinkFile ' Image <anpassen>
           .IconLocation = sLinkFile                            ' Icon setzen
           .Save                                                ' Link speichern
       End With
  End With
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

ico-Datei mit VBA speichern und als Icon verwenden

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ico-Datei mit VBA speichern und als Icon verwenden

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread