masaüstüne ikon oluşturma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Thisworkbooka
'Private Sub Workbook_Open()
'    Call DShortCut(ThisWorkbook.FullName)
'End Sub

'Modüle
Sub Dektop_Icon_anlegen()
Call DShortCut(ThisWorkbook.FullName)
End Sub
Function DShortCut(strFullFilePathName As String) As Long
  ' Ursprüngliche Version von Myrna Larson in VBS
  ' Für VBA umgebaut von klausimausi64
  ' Uses the Windows Scripting Host to create a .lnk
  ' shortcut on the user's desktop.
  ' Parameters: strFullFilePathName - String - The full name of
  '   the file to which the shortcut will point.
  ' Returns: 1 = success, 0 = target doesn't exist, -1 = other error
  ' Example:   Call DShortCut ("C:Program FilesMicrosoft Office 97OfficeExamplesSAMPLES.XLS")

Dim WSHShell As Object
  Dim WSHShortcut As Object
  Dim strDesktopPath As String
  Dim strFileName As String
  Dim strPath As String

On Error GoTo ErrHandler

'  Create a Windows Shell Object
  Set WSHShell = CreateObject("wscript.Shell")

'  Get the file's name and path...
  strFileName = Dir(strFullFilePathName)
  strPath = Left(strFullFilePathName, Len(strFullFilePathName) - Len(strFileName))

'  Make sure file exists
  If Not Len(strFileName) = 0 Then

' Read desktop path using WshSpecialFolders object
    strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")

' Create a shortcut object on the desktop
    Set WSHShortcut = WSHShell.CreateShortcut(strDesktopPath & "" & strFileName & ".lnk")

' Set shortcut object properties and save it
    With WSHShortcut
      .TargetPath = WSHShell.ExpandEnvironmentStrings(strFullFilePathName)
      .WorkingDirectory = WSHShell.ExpandEnvironmentStrings(strPath)
      .WindowStyle = 4
      .IconLocation = WSHShell.ExpandEnvironmentStrings(Application.Path & "excel.exe , 0")
      .Save
    End With
    DShortCut = 1
  Else
    DShortCut = 0
  End If

Continue:
  Set WSHShell = Nothing
  Exit Function

ErrHandler:
  DShortCut = -1
  Resume Continue
End Function

Benzer Sonuçlar
No	Makro Adı
1	masaüstüne ikon oluşturma
2	masaüstüne kısayol oluşturma iconlu
3	excel dosyamin kisayolunu masaüstünde oluşturmak için api
4	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
5	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
6	yedek alma ile ilgili
7	eklantilerin tamamının kontrolü
8	araç çubuğu oluşturma ve silme
9	makrolar kutusu ve makrolar görünsün
10	find menüsü oluşturma
11	aktif hücreden aşağıya doğru sayfalara köprü atılır
12	sayfanın aktif hücresinden aşağıya doğru sayfalarınıza köprü atılır
13	Mesaj kutusu içerisinde yeni satır oluşturmak
14	excel operatörleri hk
15	makro ile birleştir formülünü oluşturma
16	veriye göre sayfa oluşturmak ve satır lari kopyalamak
17	vbs ile klasör işlemleri
18	sözlük kodlari
19	register'de yeni anahtar oluşturmak
20	text dosyası 1 oluşturma

Benzer Sonuçlar

Makro Adı

masaüstüne ikon oluşturma

masaüstüne kısayol oluşturma iconlu

excel dosyamin kisayolunu masaüstünde oluşturmak için api

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

yedek alma ile ilgili

eklantilerin tamamının kontrolü

araç çubuğu oluşturma ve silme

makrolar kutusu ve makrolar görünsün

find menüsü oluşturma