Kod yardımı

[fırat_raman]

Merhaba arkadaşlar, excel dosyasının kısayol simgesini icon yapmak için elimde bir kod var (Const szIconName As String ="\Resim-2.ico") bu şekilde bir sorun yok, fakat ben kırmızı olan kısmı yani resim adını Textbox1'den almasını istiyorum acaba nasıl değiştirebilirim
bu şekilde yaptım ama olmadı ( Const szIconName As String = "\TextBox1.Text")

 

[YUSUF44]

Const szIconName As String = TextBox1.Text
Şeklinde, olmazsa
Const szIconName As String = "\" & TextBox1.Text
şeklinde dener misiniz?

Kırmızı olan kısmın tamamı textboxtan alınacaksa ilki olur diye düşünüyorum.

 

[fırat_raman]

YUSUF44 bey, öncelikle ilginizden dolayı teşekkür ederim, her iki şekilde kulandım fakat (.Text) hata veriyor. Sanırım noktadan sonrasını dosya uzantısı olarak algılıyor

 

[Emir Hüseyin Çoban]

Kullandığınız kodun tamamını görmekte fayda var.

.

 

[fırat_raman]

Merhaba Hüseyin bey, kodu aldığım link http://www.excel.web.tr/f128/vba-masaustu-konu-ekleme-t111563.html

 

[Emir Hüseyin Çoban]

. . .

Yusuf beyin kodlarında textboxa isim girerken isim.ico şeklinde resim uzantısınıda girmeniz gerekiyor veya kodları şu şekilde deneyin.

Const szIconName As String = "\" & Textbox1.Text & [COLOR="DarkRed"]".ico"[/COLOR]

. . .

 

[fırat_raman]

Hüseyin hocam vermiş olduğunuz kodu kullandım yine hata veriyor. örnek bir dosya hazırladım, zamanınız varsa lütfen bakarmısınız.

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde deneyiniz.

Private Sub CommandButton1_Click()
     ' Msgbox string variables
    Dim szMsg As String
    Dim szStyle As String
    Dim szTitle As String
      
     ' Change here for the icon's name

    
    'Const szIconName As String = "\Icon\Resim-3.ico"
     ' Constant string values, you can replace "Desktop"
     ' with any Special Folders name to create the shortcut there
    Const szlocation As String = "Desktop"
    Const szLinkExt As String = ".lnk"
     
     
     ' Object variables
    Dim oWsh As Object
    Dim oShortcut As Object
     
     
     ' String variables
    Dim szSep As String
    Dim szBookName As String
    Dim szBookFullName As String
    Dim szPath As String
    Dim szDesktopPath As String
    Dim szShortcut As String
     
     
     ' Initialize variables
    szSep = Application.PathSeparator
    szBookName = szSep & ThisWorkbook.Name
    szBookFullName = ThisWorkbook.FullName
    szPath = ThisWorkbook.Path
     
     
     
    On Error GoTo ErrHandle
     ' The WScript.Shell object provides functions to read system
     ' information and environment variables, work with the registry
     ' and manage shortcuts
    Set oWsh = CreateObject("WScript.Shell")
    szDesktopPath = oWsh.SpecialFolders(szlocation)
     
     
     ' Get the path where the shortcut will be located
    szShortcut = szDesktopPath & szBookName & szLinkExt
     
     
     ' Make it happen
    Set oShortcut = oWsh.CreateShortCut(szShortcut)
     
     
     ' Link it to this file
    With oShortcut
        .TargetPath = szBookFullName
      [COLOR="DarkRed"]  .IconLocation = ThisWorkbook.Path & "\Icon\" & TextBox1.Text [/COLOR]
        .Save
    End With
     
     
     ' Explicitly clear memory
    Set oWsh = Nothing
    Set oShortcut = Nothing
     
     
     ' Let the user know it was created ok
    szMsg = "Masaüstü Kısayolu Oluşturuldu"
    szStyle = 0
    szTitle = "Success!"
    MsgBox szMsg, szStyle, szTitle
     
     
    Exit Sub
     
     
     ' or if it wasn't
ErrHandle:
    szMsg = "Shortcut could not be created"
    szStyle = 48
    szTitle = "Error!"
     
    MsgBox szMsg, szStyle, szTitle

End Sub

. . .

 

[fırat_raman]

Hüseyin bey, teşekkür ederim istediğim şekilde oldu.