Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Icon mit (VBA) anlegen
Autor: VBAMark222
Datum: 30.12.04 17:37
Deine Frage: Was heißt bei Dir denn "hässliche Icons"? Ich meine die Windows-Standard-ICONS wenn Windows das Ziel noch nicht hat. Also das Ding mit den häßlichen Kreuzen. API? Bin ich unter dieser Rubrik falsch? Private Sub cmd1_Click() Dim objWSHShell As Object Dim objWSHShortcut As Object Dim userN As String Dim sIconLocation As String Set objWSHShell = CreateObject("WScript.Shell") MsgBox userN MsgBox ("C:\Dokumente und Einstellungen\" & userN & "\Desktop\##MB##.lnk") Set objWSHShortcut = objWSHShell.CreateShortcut _ ("C:\Dokumente und Einstellungen\" & userN & "\Desktop\##MB##.lnk") 'Verknüpfungsnamen ' Symbol (Icon-Datei) 'If IconLocation = Empty Then ' sIconLocation = TargetPath MsgBox TargetPath If Empty = Empty Then sIconLocation = TargetPath Else sIconLocation = IconLocation End If objWSHShortcut.TargetPath = "J:\Berichte\MB.xls" 'Ziel-Datei objWSHShortcut.IconLocation = sIconLocation 'Test objWSHShortcut.Description = "Ort: J:\Berichte" 'Wie Control-Tiptext objWSHShortcut.WorkingDirectory = "C:\Windows" objWSHShortcut.WindowStyle = 1 'WshNormalFocus objWSHShortcut.Save Set objWSHShortcut = Nothing Set objWSHShell = Nothing End Sub Tschau

Icon mit (VBA) anlegen	1.447	VBAMark222	23.12.04 16:09
Re: Icon mit (VBA) anlegen	969	Martoeng	25.12.04 15:10
Re: Icon mit (VBA) anlegen	1.021	VBAMark222	30.12.04 17:37
Re: Icon mit (VBA) anlegen	935	Martoeng	30.12.04 18:07
Re: Icon mit (VBA) anlegen	1.015	VBAMark222	30.12.04 21:46
Re: Icon mit (VBA) anlegen	1.081	VBAMark222	31.12.04 15:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen