Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Desktopverknüpfung Name & Logo ändern

Desktopverknüpfung Name & Logo ändern
28.12.2005 08:24:39
R.Schmitt
Guten Morgen,
hoffentlich seid ihr alle gut durch die Feiertage
gekommen und habt Weihnachtsgans und - plätzchen
genossen. Nun kurz zu meiner Frage :
Mit dem folgenden Makro erstelle ich einen Link auf
dem Desktop. Was ich noch gewährleisten will ist :
- Prüfen ob die Verknüpfung bereits besteht, denn
sie soll nur beim ersten Öffnen angelegt werden.
- Den Namen ändern in "Aktuelle Auftragsrunde"
- Das angezeigte Symbol vom .xls auf ein anderes
ändern (es gibt da ja einen ganzen Ordner voll
Alternativen - nur wo sind die denn ?)

Sub LnkAufDesktop()
Dim wbA As Workbook
Dim wSh As Object
Dim oSh As Object
Dim sDesktop As String
Set wbA = ActiveWorkbook
If wbA.Name = wbA.FullName Then
MsgBox wbA.Name & " muss erst gespeichert werden!"
Exit Sub
End If
Set wSh = CreateObject("WScript.Shell")
sDesktop = wSh.SpecialFolders("Desktop")
Set oSh = wSh.CreateShortcut(sDesktop & "\" & wbA.Name & ".lnk")
With oSh
.Targetpath = wbA.FullName
.Save
End With
Set wSh = Nothing
End Sub

Vielen Dank
R.Schmitt

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Desktopverknüpfung Name & Logo ändern
28.12.2005 09:32:35
Josef
Hallo R!
Z.B. so!
Sub LnkAufDesktop()
Dim wbA As Workbook
Dim wSh As Object
Dim oSh As Object
Dim sDesktop As String
Set wbA = ActiveWorkbook
If wbA.Name = wbA.FullName Then
  MsgBox wbA.Name & " muss erst gespeichert werden!"
  Exit Sub
End If
Set wSh = CreateObject("WScript.Shell")
sDesktop = wSh.SpecialFolders("Desktop")
Set oSh = wSh.CreateShortcut(sDesktop & "\" & wbA.Name & ".lnk")
With oSh
  .Targetpath = wbA.FullName
  'Icondatei, Iconindex
  .IconLocation = "C:\WINDOWS\system32\shell32.dll,78"
  'Beschreibung
  .Description = "Dies ist eine neue Verknüpfung"
  .WorkingDirectory = "C:\Windows"
  .WindowStyle = vbNormalFocus
  .Save
End With
Set wSh = Nothing
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Desktopverknüpfung Name & Logo ändern
28.12.2005 09:49:26
R.Schmitt
Hi Josef,
Weihnachten ist gerettet ;-))
Danke
R.Schmitt

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige