bonjour,
j'aimerai savoir s'il est possible avec visual basic de modifier le bouton
qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que
l'on ouvre un programme.
Comment intégrer une autre icone et un autre texte.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Voici une solution en utilisant l'API Windows. L'idée est de stocker une icône dans un contrôle Image d'un UserForm.
A) Création d'un UserForm 1) Créez un UserForm et mettez sa propriété (Name) = UF 2) Insérez un contrôle Image et affectez à sa propriété Picture l'icône de votre choix
B) Code à copier dans un module standard '************* Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long Dim hWnd As Long
Sub IconeNomAppli_PMO() Dim MonIcone As Control '---- Change l'icône d'Excel en cherchant ---- '---- une icône stockée dans un formulaire ---- Set MonIcone = UF.Controls(0) hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, MonIcone.Picture '---- Change le nom de l'application ---- Application.Caption = "Personnalisée" 'à adapter End Sub '*************
Lancez la macro IconeNomAppli_PMO. Vous pouvez, si vous le voulez, appeler cette macro à partir de l'évènement Workbook_Open avec le code suivant à copier dans l'évènementiel de ThisWorkbook '************* Private Sub Workbook_Open() Call IconeNomAppli_PMO End Sub '************* Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro. Pour ce faire, remplacez Sub IconeNomAppli_PMO() par Sub IconeNomAppli_PMO(Optional Void As Byte) L'argument bidon Void empêchera son affichage.
Cordialement -- PMO Patrick Morange
bonjour, j'aimerai savoir s'il est possible avec visual basic de modifier le bouton qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que l'on ouvre un programme. Comment intégrer une autre icone et un autre texte.
Merci d'avance
Bonjour,
Voici une solution en utilisant l'API Windows.
L'idée est de stocker une icône dans un contrôle Image d'un UserForm.
A) Création d'un UserForm
1) Créez un UserForm et mettez sa propriété (Name) = UF
2) Insérez un contrôle Image et affectez à sa propriété Picture
l'icône de votre choix
B) Code à copier dans un module standard
'*************
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long
Dim hWnd As Long
Sub IconeNomAppli_PMO()
Dim MonIcone As Control
'---- Change l'icône d'Excel en cherchant ----
'---- une icône stockée dans un formulaire ----
Set MonIcone = UF.Controls(0)
hWnd = FindWindowA(vbNullString, Application.Caption)
HIcon = GetClassLongA(hWnd, -14)
SetClassLongA hWnd, -14, MonIcone.Picture
'---- Change le nom de l'application ----
Application.Caption = "Personnalisée" 'à adapter
End Sub
'*************
Lancez la macro IconeNomAppli_PMO.
Vous pouvez, si vous le voulez, appeler cette macro à partir
de l'évènement Workbook_Open avec le code suivant
à copier dans l'évènementiel de ThisWorkbook
'*************
Private Sub Workbook_Open()
Call IconeNomAppli_PMO
End Sub
'*************
Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO
afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro.
Pour ce faire, remplacez Sub IconeNomAppli_PMO() par
Sub IconeNomAppli_PMO(Optional Void As Byte)
L'argument bidon Void empêchera son affichage.
Cordialement
--
PMO
Patrick Morange
bonjour,
j'aimerai savoir s'il est possible avec visual basic de modifier le bouton
qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que
l'on ouvre un programme.
Comment intégrer une autre icone et un autre texte.
Voici une solution en utilisant l'API Windows. L'idée est de stocker une icône dans un contrôle Image d'un UserForm.
A) Création d'un UserForm 1) Créez un UserForm et mettez sa propriété (Name) = UF 2) Insérez un contrôle Image et affectez à sa propriété Picture l'icône de votre choix
B) Code à copier dans un module standard '************* Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long Dim hWnd As Long
Sub IconeNomAppli_PMO() Dim MonIcone As Control '---- Change l'icône d'Excel en cherchant ---- '---- une icône stockée dans un formulaire ---- Set MonIcone = UF.Controls(0) hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, MonIcone.Picture '---- Change le nom de l'application ---- Application.Caption = "Personnalisée" 'à adapter End Sub '*************
Lancez la macro IconeNomAppli_PMO. Vous pouvez, si vous le voulez, appeler cette macro à partir de l'évènement Workbook_Open avec le code suivant à copier dans l'évènementiel de ThisWorkbook '************* Private Sub Workbook_Open() Call IconeNomAppli_PMO End Sub '************* Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro. Pour ce faire, remplacez Sub IconeNomAppli_PMO() par Sub IconeNomAppli_PMO(Optional Void As Byte) L'argument bidon Void empêchera son affichage.
Cordialement -- PMO Patrick Morange
bonjour, j'aimerai savoir s'il est possible avec visual basic de modifier le bouton qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que l'on ouvre un programme. Comment intégrer une autre icone et un autre texte.
Merci d'avance
orlotov
PMO a écrit le 13/09/2005 à 15h15 :
Bonjour,
Voici une solution en utilisant l'API Windows. L'idée est de stocker une icône dans un contrôle Image d'un UserForm.
A) Création d'un UserForm 1) Créez un UserForm et mettez sa propriété (Name) = UF 2) Insérez un contrôle Image et affectez à sa propriété Picture l'icône de votre choix
B) Code à copier dans un module standard '************* Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long Dim hWnd As Long
Sub IconeNomAppli_PMO() Dim MonIcone As Control '---- Change l'icône d'Excel en cherchant ---- '---- une icône stockée dans un formulaire ---- Set MonIcone = UF.Controls(0) hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, MonIcone.Picture '---- Change le nom de l'application ---- Application.Caption = "Personnalisée" 'à adapter End Sub '*************
Lancez la macro IconeNomAppli_PMO. Vous pouvez, si vous le voulez, appeler cette macro à partir de l'évènement Workbook_Open avec le code suivant à copier dans l'évènementiel de ThisWorkbook '************* Private Sub Workbook_Open() Call IconeNomAppli_PMO End Sub '************* Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro. Pour ce faire, remplacez Sub IconeNomAppli_PMO() par Sub IconeNomAppli_PMO(Optional Void As Byte) L'argument bidon Void empêchera son affichage.
Cordialement -- PMO Patrick Morange
bonjour, j'aimerai savoir s'il est possible avec visual basic de modifier le bouton qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que l'on ouvre un programme. Comment intégrer une autre icone et un autre texte.
Merci d'avance
Bonjour je lis ce vieux sujet et en voulant l'utiliser je m'apperçois que l'icone ne change pas. Quel nom doit avoir l'image du userform (Name)
PMO a écrit le 13/09/2005 à 15h15 :
Bonjour,
Voici une solution en utilisant l'API Windows.
L'idée est de stocker une icône dans un contrôle Image d'un
UserForm.
A) Création d'un UserForm
1) Créez un UserForm et mettez sa propriété (Name) = UF
2) Insérez un contrôle Image et affectez à sa
propriété Picture
l'icône de votre choix
B) Code à copier dans un module standard
'*************
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long
Dim hWnd As Long
Sub IconeNomAppli_PMO()
Dim MonIcone As Control
'---- Change l'icône d'Excel en cherchant ----
'---- une icône stockée dans un formulaire ----
Set MonIcone = UF.Controls(0)
hWnd = FindWindowA(vbNullString, Application.Caption)
HIcon = GetClassLongA(hWnd, -14)
SetClassLongA hWnd, -14, MonIcone.Picture
'---- Change le nom de l'application ----
Application.Caption = "Personnalisée" 'à adapter
End Sub
'*************
Lancez la macro IconeNomAppli_PMO.
Vous pouvez, si vous le voulez, appeler cette macro à partir
de l'évènement Workbook_Open avec le code suivant
à copier dans l'évènementiel de ThisWorkbook
'*************
Private Sub Workbook_Open()
Call IconeNomAppli_PMO
End Sub
'*************
Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO
afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro.
Pour ce faire, remplacez Sub IconeNomAppli_PMO() par
Sub IconeNomAppli_PMO(Optional Void As Byte)
L'argument bidon Void empêchera son affichage.
Cordialement
--
PMO
Patrick Morange
bonjour,
j'aimerai savoir s'il est possible avec visual basic de modifier le bouton
qui apparait dans la barre des tâche a droite du bouton démarrer
lorsque que
l'on ouvre un programme.
Comment intégrer une autre icone et un autre texte.
Merci d'avance
Bonjour je lis ce vieux sujet et en voulant l'utiliser je m'apperçois que l'icone ne change pas. Quel nom doit avoir l'image du userform (Name)
Voici une solution en utilisant l'API Windows. L'idée est de stocker une icône dans un contrôle Image d'un UserForm.
A) Création d'un UserForm 1) Créez un UserForm et mettez sa propriété (Name) = UF 2) Insérez un contrôle Image et affectez à sa propriété Picture l'icône de votre choix
B) Code à copier dans un module standard '************* Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetClassLongA Lib "user32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function LoadImageA Lib "user32" _ (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Dim HIcon As Long Dim hWnd As Long
Sub IconeNomAppli_PMO() Dim MonIcone As Control '---- Change l'icône d'Excel en cherchant ---- '---- une icône stockée dans un formulaire ---- Set MonIcone = UF.Controls(0) hWnd = FindWindowA(vbNullString, Application.Caption) HIcon = GetClassLongA(hWnd, -14) SetClassLongA hWnd, -14, MonIcone.Picture '---- Change le nom de l'application ---- Application.Caption = "Personnalisée" 'à adapter End Sub '*************
Lancez la macro IconeNomAppli_PMO. Vous pouvez, si vous le voulez, appeler cette macro à partir de l'évènement Workbook_Open avec le code suivant à copier dans l'évènementiel de ThisWorkbook '************* Private Sub Workbook_Open() Call IconeNomAppli_PMO End Sub '************* Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro. Pour ce faire, remplacez Sub IconeNomAppli_PMO() par Sub IconeNomAppli_PMO(Optional Void As Byte) L'argument bidon Void empêchera son affichage.
Cordialement -- PMO Patrick Morange
bonjour, j'aimerai savoir s'il est possible avec visual basic de modifier le bouton qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que l'on ouvre un programme. Comment intégrer une autre icone et un autre texte.
Merci d'avance
Bonjour je lis ce vieux sujet et en voulant l'utiliser je m'apperçois que l'icone ne change pas. Quel nom doit avoir l'image du userform (Name)