masaüstüne kısayol oluşturma iconlu 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. 
 
Sub Dektop_Icon_anlegen()
Call DShortCut(ThisWorkbook.FullName)
End Sub
Function DShortCut(strFullFilePathName As String) As Long
  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 kısayol oluşturma iconlu
2	excel dosyamin kisayolunu masaüstünde oluşturmak için api
3	masaüstüne ikon oluşturma
4	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
5	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
6	Mesaj kutusu içerisinde yeni satır oluşturmak
7	find menüsü oluşturma
8	Kullanıcı tanımlı menü oluşturma / Üstte "Eklentiler" bölümüne kendiniz menü oluşturup onlara makro atayın
9	kısayol tuşları listesi
10	vbs ile klasör işlemleri
11	sözlük kodlari
12	excel operatörleri hk
13	text dosyası 1 oluşturma
14	Cümleleri kısaltma işlemi / Bir cümlede geçen kelimelerin ilk harflerini kullanarak kısa cümle oluşturma
15	makro ile birleştir formülünü oluşturma
16	yeni kitap oluşturma kitabın ismiyle başlayan ve birer artan kitap oluşturur
17	yedek alma ile ilgili
18	araç çubuğu oluşturma ve silme
19	sheetleri bir sheette toplamak
20	llistede kaç kişi olduğunu bulmanın kısayolu.

Benzer Sonuçlar

Makro Adı

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

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

masaüstüne ikon oluşturma

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

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

Mesaj kutusu içerisinde yeni satır oluşturmak

find menüsü oluşturma

Kullanıcı tanımlı menü oluşturma / Üstte "Eklentiler" bölümüne kendiniz menü oluşturup onlara makro atayın

kısayol tuşları listesi

vbs ile klasör işlemleri