Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Créer un bouton de barre d'outils avec une image

4 réponses
Avatar
Jacques ALARDET
Bonjour,

J'ai découvert depuis la technique des images de bouton à partir des
fichiers BMP

Par exemple :

With CommandBars.Add(Name:=O_Outil, Position:=msoBarFloating)
.Visible = True
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonIcon
.OnAction = "Test_Macro1"
.TooltipText = "Test macro Bouton N1"
Set MonObjet =
stdole.StdFunctions.LoadPicture("ImageBouton.bmp")
.Picture = MonObjet
End With
End With

J'ai tenté de travaillé avec un fichier d'icônes "ImageBouton.ico" sans
succès

Est-ce possible ?


--
J a c q u e s

4 réponses

Avatar
isabelle
bonjour Jacques,

ce n'est pas possible,
voici un extrait de l'aide sur:

http://msdn.microsoft.com/en-us/library/aa155612(office.10).aspx

To create a Picture or Mask object, you can use the LoadPicture function,
which loads a picture from a file. The picture can be nearly
any type of graphic (including bmp, gif, and jpg), but it can't be an icon file.

isabelle

Bonjour,

J'ai découvert depuis la technique des images de bouton à partir des
fichiers BMP

Par exemple :

With CommandBars.Add(Name:=O_Outil, Position:=msoBarFloating)
.Visible = True
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonIcon
.OnAction = "Test_Macro1"
.TooltipText = "Test macro Bouton N1"
Set MonObjet =
stdole.StdFunctions.LoadPicture("ImageBouton.bmp")
.Picture = MonObjet
End With
End With

J'ai tenté de travaillé avec un fichier d'icônes "ImageBouton.ico" sans
succès

Est-ce possible ?




Avatar
Francois L

Bonjour,

Compte tenu de la réponse d'Isabellle, il faut d'abord transformer ton
fichier ico dans un format accepté. Pour cela utiliser un utilitaire
gratuit comme XnView.

--
François L

Bonjour,

J'ai découvert depuis la technique des images de bouton à partir des
fichiers BMP

Par exemple :

With CommandBars.Add(Name:=O_Outil, Position:=msoBarFloating)
.Visible = True
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonIcon
.OnAction = "Test_Macro1"
.TooltipText = "Test macro Bouton N1"
Set MonObjet =
stdole.StdFunctions.LoadPicture("ImageBouton.bmp")
.Picture = MonObjet
End With
End With

J'ai tenté de travaillé avec un fichier d'icônes "ImageBouton.ico" sans
succès

Est-ce possible ?




Avatar
Jacques ALARDET
Bonjour,

et merci à Isabelle, bonanza et François L

J a c q u e s

"Jacques ALARDET" a écrit dans le message de
news:
Bonjour,

J'ai découvert depuis la technique des images de bouton à partir des
fichiers BMP

Par exemple :

With CommandBars.Add(Name:=O_Outil, Position:=msoBarFloating)
.Visible = True
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonIcon
.OnAction = "Test_Macro1"
.TooltipText = "Test macro Bouton N1"
Set MonObjet =
stdole.StdFunctions.LoadPicture("ImageBouton.bmp")
.Picture = MonObjet
End With
End With

J'ai tenté de travaillé avec un fichier d'icônes "ImageBouton.ico" sans
succès

Est-ce possible ?


--
J a c q u e s



Avatar
Anonyme
Le jeudi 08 Mai 2008 à 07:23 par Francois L :
Bonjour,

Compte tenu de la réponse d'Isabellle, il faut d'abord transformer ton
fichier ico dans un format accepté. Pour cela utiliser un utilitaire
gratuit comme XnView.

--
François L

Bonjour,

J'ai découvert depuis la technique des images de bouton à partir
des
fichiers BMP

Par exemple :

With CommandBars.Add(Name:=O_Outil, Position:=msoBarFloating)
.Visible = True
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonIcon
.OnAction = "Test_Macro1"
.TooltipText = "Test macro Bouton N1"
Set MonObjet =
stdole.StdFunctions.LoadPicture("ImageBouton.bmp")
.Picture = MonObjet
End With
End With

J'ai tenté de travaillé avec un fichier d'icônes
"ImageBouton.ico" sans
succès

Est-ce possible ?







Celui-là est toujours d'actualité

http://www.xnview.com/fr/download.html