excel kitabının varsayılan icon simge sini degistirmek

[cenk77ist]

mevcut bir excel dosyası açtığımda o dosyanın örneğin a.xls taskbar daki simgesini diğer excel dosyalarından farklı yapmak istiyorum, mümkünmü bilgisi olan?

 

[birol_mumcu]

merhaba;
Aşağıdaki kod Excel ikonunu nasıl değiştireceğinizi göstermektedir.

Declare Function GetActiveWindow32 Lib "USER32" Alias "GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "USER32" Alias "SendMessageA" (ByVal hWnd As _
Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
"ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long

Sub ChangeXLIcon()
Dim h32NewIcon As Long
Dim h32WndXLMAIN As Long
h32NewIcon = ExtractIcon32(0, "Notepad.exe", 0)
h32WndXLMAIN = GetActiveWindow32()
SendMessage32 h32WndXLMAIN, &H80, 1, h32NewIcon 'Icon big
SendMessage32 h32WndXLMAIN, &H80, 0, h32NewIcon 'Icon small
End Sub

 

[ocamsul]

Sn: birol_mumcu
peki bu görünümü masaüstündeki excel ikonunu nasıl değiştirebiliriz? ancak sadece bu çalışma sayfası için.

 

[Tankut SAZLI]

Sn: birol_mumcu
peki bu görünümü masaüstündeki excel ikonunu nasıl değiştirebiliriz? ancak sadece bu çalışma sayfası için.

Anladığım kadarıyla siz Excel in standart iconunu değiştirmek istiyorsunuz.Bildiğim kadarıyla bu işi bir iconchanger programı yadımıyla yapabilirsiniz.Bunun dışında microsoftun buna izin verdiğini tahmin etmiyorum.
USERFORM GÖRÜNÜMLERİ

 

[ocamsul]

Sn: Tankut SAZLI dediğiniz programlardan bir tanesi bulup Standart ikonu değiştirdim. Ancak bu değişiklik kalıcımıdır. Yani başka bir pc de de aynı görünüm olacakmıdır, yoksa o pc de de bir iconchanger programı olmalımıdır.

 

[Tankut SAZLI]

Sn: Tankut SAZLI dediğiniz programlardan bir tanesi bulup Standart ikonu değiştirdim. Ancak bu değişiklik kalıcımıdır. Yani başka bir pc de de aynı görünüm olacakmıdır, yoksa o pc de de bir iconchanger programı olmalımıdır.

Ne yalan söyliyim,hiç denemedim bilmiyorum.

 

[ocamsul]

Tankut SAZLI
Ne yalan söyliyim,hiç denemedim bilmiyorum

Evet denedim. bir iconchanger programı olması gerekiyor. excel in standar icon şeklini görüyoruz başka bir pc de.

 

[cenk77ist]

birol bey tşk bir sürü excel sayfası arasında ana sayfamı daha rahat bulucam artık

 

[cenk77ist]

peki microsoft excel başlığından nasıl kurtuluruz?? sadece çalışma kitabının adını yazsın

 

[cenk77ist]

Application.caption="*" Yapinca OluyormuŞ