Excel Icon Programming

Excel Icon Programming

Post by Y2FsZG9 » Fri, 16 Sep 2005 07:51:02


Trying to develop several worksheets, that will go out to several of our
facilities. When these facilities are loading these worksheets, all I want
them to do is install and icon on their deskup that will give them access to
these install sheets. I will have these sheets blocked so using this Icon is
their only way to gain access to the install sheets.

Can a desktop Icon be developed by using either Excel or VBA?

Steve
 
 
 

Excel Icon Programming

Post by Bob Philli » Fri, 16 Sep 2005 08:09:23

This will create a desktop shortcut if that is what you mean


'----------------------------------------------------------------
Sub CreateShortCut()
'----------------------------------------------------------------
Dim oWSH As Object
Dim oShortcut As Object
Dim sPathDeskTop As String

Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")

Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
ActiveWorkbook.Name & ".lnk")
With oShortcut
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set oWSH = Nothing

End Sub



--
HTH

Bob Phillips



want
to
is

 
 
 

Excel Icon Programming

Post by Y2FsZG9 » Fri, 16 Sep 2005 08:37:11

Thanks Bob

For everything to work correctly, and I am asking you this question becasue
I am fairly new at VBA code, where should this code be placed to work like I
want i to
?

Steve
 
 
 

Excel Icon Programming

Post by Y2FsZG9 » Fri, 16 Sep 2005 14:34:01

Still looking for help in how to use the code that Bob said to use, very new
at VBA.

Steve
 
 
 

Excel Icon Programming

Post by Nick Heb » Fri, 16 Sep 2005 15:15:16

You could put it in an Excel file with a single command button that
runs the macro, then email the Excel file to all your users.

Or you could put it in a VBS file (just a text file with a .vbs
extension) and mail that out. I don't know if it would make it through
the mail servers though - probably get tagged as a virus.
 
 
 

Excel Icon Programming

Post by Bob Philli » Fri, 16 Sep 2005 17:06:31

Sorry to take so long to reply, different time zones meant I was fast asleep
when you posted :-).

The code should go into a standard code module (Alt-F11, Insert>Module).

To know which workbook or whatever to add it to would require more detail on
how you will work with all of this, there are many options.

--
HTH

Bob Phillips



new

becasue
like I



our
I
access
this Icon