Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Icon mit (VBA) anlegen
Autor: VBAMark222
Datum: 23.12.04 16:09
Hi, ich möchte in meiner Installation Desktop-Icons anlegen. Es klappt nur mit häßlichen Icons. Private Sub cmd2_Click() Dim objWSHShell As Object Dim objWSHShortcut As Object Set objWSHShell = CreateObject("WScript.Shell") Set objWSHShortcut = objWSHShell.CreateShortcut _ ("C:\Dokumente und Einstellungen\A1TAMMO\Desktop\##J-Berichte.lnk") 'Verknüpfungsnamen objWSHShortcut.TargetPath = "J:\Berichte" 'Ziel-Ordner objWSHShortcut.Description = "Ort: J:\Berichte" 'Wie Control-Tiptext objWSHShortcut.WorkingDirectory = "" objWSHShortcut.WindowStyle = WshNormalFocus '###### gerne Maximiert objWSHShortcut.Save '###### gerne schönes Icon Set objWSHShortcut = Nothing Set objWSHShell = Nothing End Sub Wer gibt mir den richtigen Schubs! - Danke!

Icon mit (VBA) anlegen	1.389	VBAMark222	23.12.04 16:09
Re: Icon mit (VBA) anlegen	927	Martoeng	25.12.04 15:10
Re: Icon mit (VBA) anlegen	979	VBAMark222	30.12.04 17:37
Re: Icon mit (VBA) anlegen	893	Martoeng	30.12.04 18:07
Re: Icon mit (VBA) anlegen	972	VBAMark222	30.12.04 21:46
Re: Icon mit (VBA) anlegen	1.037	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