ICONES PERSONNALISES DANS COMPLEMENT OUTLOOK EN VB .NET

**Matou17** · 11/07/2023, 10h26

Bonjour,

Je travaille actuellement sur la création d'un complément Outlook en VB .NET qui me permettra d'ajouter diverses fonctionnalités directement accessibles depuis l'Outlook des utilisateurs.
Les icônes imageMso étant un peu tristes, je voudrais pouvoir afficher mes propres icônes dans le ruban que j'ai créé.

voici le code XML raccourci à titre d'exemple: (Le bouton 12 avec une image MSo et le bouton13 avec un icone personnalisé)

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load" loadImage="GetImage">
	<ribbon>
		<tabs>
			<tab idMso="TabAddIns" label = "Mysoft">
				<group id="MyGroup" label="TICKETS" imageMso="GroupManageTask" autoScale="true">
					<button id="button12" label="Créer un ticket" imageMso = "GroupManageTask" size="large" onAction = "Button12_action" />
					<button id="button13" label="Voir les tickets en cours" getImage="ticket.ico" size="large" onAction = "Button13_action" />
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

Peut-on stocker les icônes personnalisés dans les ressources du projet ?
A partir de ce code XML, comment afficher afficher mes propres icônes dans le ruban ? Quel serait le code vb .NET pour charger les icônes ?

Merci d'avance de votre aide !

Cordialement

Matou

**popo** · 12/07/2023, 09h29

De mémoire, parce que ça remonte à loin, l'attribut à utiliser est image et non pas getImage.
Et si tu veux utiliser les ressources du projet, il faut mettre ton icône en tant que ressource et utiliser le nom sous lequel elle est référencée.

Ce qui donne ce XML :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

<button id="button13" label="Voir les tickets en cours" image="NomDeLaRessource" size="large" onAction = "Button13_action" />

Et le code suivant pour lire la ressource :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Properties.Resources.ResourceManager.GetObject(resourceName);

Edit :
Regarde ce lien :
https://bettersolutions.com/csharp/v...gner-icons.htm

**Matou17** · 18/07/2023, 16h27

Bonjour,

je te remercie de ta réponse. Mon projet est en VB. J'ai bien essayé de transformer en VB le C# du code que tu m'as donné ainsi que celui du site, mais sans succès.

Je suis toujours au point mort...

Une idée d'un code en VB ?

Merci d'avance.

**popo** · 18/07/2023, 19h51

Le VB.NET et le C#, c'est juste une question syntaxe. Il existe de nombreux sites qui proposent des traductions tellement c'est simple.

**Matou17** · 20/07/2023, 08h06

Tellement simple pour un expert confirmé, mais insoluble pour le commun des mortels...

J'ai suivi ton conseil et j'ai donc utilisé des sites pour traduire les morceaux de code. Une fois collé dans Visual Studio, cela génère des erreurs que je ne parviens pas à résoudre.

Aurais-tu ou sais-tu où je pourrais trouver un projet en VB .NET dans lequel le chargement des icônes personnalisés fonctionne?

Merci d'avance.

**popo** · 20/07/2023, 09h35

Non, c'est simple car c'est le même langage.
Ce n'est pas une façon de parler, la différence réside dans la syntaxe.
Même si VB.Net évolue moins vite que C#, cela reste du .Net et la manière de penser est la même (du moins jusqu'au Framework 4.8)

Je ne fais pas de VB.Net très souvent alors il m'arrive d'oublier la syntaxe.
Généralement lorsque je colle mon code C# sur le site ci-dessous, il est correctement transformé en VB.Net
https://icsharpcode.github.io/CodeConverter/

De toute manière, le site que je t'ai donné est en VB.Net
Le code ci-dessous extrait de ce site n'est pas du C# mais bien du VB.Net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function GetImage(ByVal control as Office.IRibbonControl) as stdole.IPictureDisp 
   Return BitmapToIPicture.Convert(My.Resources.NAME) 
End Function

Si tu as des erreurs, donnes les ici, accompagnées du code qui les provoque.

Edit :
En regardant ces différents sites, tu devrais pouvoir déduire, ce qu'il faut faire.

https://10tec.com/articles/excel-vst...on-button.aspx

Après je suis parti du principe que c'était un addin VSTO, il faudrait préciser si ce n'est pas le cas.

**Matou17** · 24/07/2023, 09h28

Bonjour,

Il s'agit bien d'un add-in VSTO sous Visual Studio 2019. J'ai essayé plusieurs solutions, mais toujours sans succès...

Je repars donc depuis le début:
Mon ribbon.xml

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load" loadImage="GetImage">
	<ribbon>
		<tabs>
			<tab idMso="TabAddIns" label = "Mysoft">
				<group id="MyGroup" label="TICKETS" imageMso="GroupManageTask" autoScale="true">
					<button id="button12" label="Créer un ticket" imageMso = "GroupManageTask" size="large" onAction = "Button12_action" />
					<button id="button13" label="Voir les tickets en cours" Image="ticket.bmp" size="large" onAction = "Button13_action" />
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

Dans le fichier ribbon.vb (en dessous de GetCustomUI)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Public Function GetImage(ByVal control As Office.IRibbonControl) As stdole.IPictureDisp
        Return BitmapToIPicture.Convert(My.Resources.NAME)
    End Function

Dans la fonction GetImage, j'obtiens l'erreur 30456 "NAME n'est pas un membre my.ressources"

J'ai essayé cette autre syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Public Function getImage(ImageName As String)
        Return My.Resources.ResourceManager.GetObject(ImageName)
    End Function

Pas de message d'erreur, mais mes icones n'apparaissent toujours pas.

Merci d'avance de ton aide!

J'ai oublié de préciser que je suis sous Outlook 365 au cas où cela aurait une importance.

Ces icones personnalisées sont très importantes pour mon projet.

**r.morel** · 28/07/2023, 16h06

Envoyé par Matou17

Il s'agit bien d'un add-in VSTO sous Visual Studio 2019. J'ai essayé plusieurs solutions, mais toujours sans succès...

Salut,
J'ai créé un AddIn pour Excel qui fonctionne aussi en version 365.
Pour le ruban, j'ai personnalisé les icones avec des images au format PNG.

J'ai utilisé l'explorateur de solution et l'éditeur de propriétés :
Nom : ImageInRibbon.png
Affichages : 425
Taille : 39,1 Ko

Nom : ImageInRibbon.png
Affichages : 425
Taille : 39,1 Ko

En espérant t'avoir aidé.
Bonne journée.

**ptibu** · 31/07/2023, 14h41

Bonjour,
Mille excuses si cette réponse est hors sujet car je ne suis pas familier de ces développements.

J'utilise dans un projet VB nommé "Quel_code_CIM10", des images sous format "bmp" stockées dans les ressources, auxquelles j'accède avec la syntaxe suivante pour l'image "Ght_Image"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Dim myAssemblyIndicateurs As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
        Dim myStreamIndicateurs As System.IO.Stream = Nothing
        myStreamIndicateurs = myAssemblyIndicateurs.GetManifestResourceStream("Quel_code_CIM10.Ght_Image.bmp")
        Dim imageIndicateurs As New Bitmap(myStreamIndicateurs)
        Clipboard.SetImage(imageIndicateurs)

Bien à vous

**Matou17** · 08/08/2023, 08h39

@r.morel

Bonjour,

Je te remercie de ta réponse. J'ai essayé un bandeau avec des icônes personnalisés pour Excel, et ça fonctionne sans problème. Vu dans le tuto que m'avait donné @popo

Malheureusement, le Custom UI editor ne fonctionne pas avec Outlook.

Cordialement,

Matou17

**Matou17** · 08/08/2023, 09h25

Bonjour,

J'essaye toujours de dépatouiller mon pb d'icônes.

Dans mon ribbon.XML, j'ai:

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load" loadImage="Ribbon_LoadImage">

Dans le ribbon.vb La fonction Ribbon_LoadImage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Public Function Ribbon_LoadImage(ByVal resourceName As String) As Object
        Dim bitmap As System.Drawing.Bitmap = CType(My.Resources.ResourceManager.GetObject(resourceName), System.Drawing.Bitmap)
        Return CType(AxHost.GetIPictureDispFromPicture(bitmap), stdole.IPictureDisp)
    End Function

Elle me donne le message d'erreur suivant:

Nom : err.png
Affichages : 410
Taille : 43,2 Ko

J'avoue de pas y comprendre grand chose, une idée ?

Merci d'avance

Matou 17

**Matou17** · 10/08/2023, 10h22

Bonjour,

Après de nombreux essais, j'ai enfin résolu la première partie du problème. J'espère que cela pourra servir à d'autres personnes.

Voici un code qui fonctionne correctement:

En ce qui concerne le RIBBON.XML:

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load" loadImage="GetImage">
	<ribbon>
		<tabs>
			<tab idMso="TabAddIns" label = "Mysoft">
				<group id="MyGroup" label="TICKETS" imageMso="GroupManageTask" autoScale="true">
					<button id="button12" label="Créer un ticket" imageMso = "GroupManageTask" size="large" onAction = "Button12_action" />
					<button id="button13" label="Voir les tickets en cours" Image="asterisque" size="large" onAction = "Button13_action" />
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

RIBBON.VB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Public Function GetImage(ByVal ImageName As String) As System.Drawing.Image
        Return CType(My.Resources.ResourceManager.GetObject(ImageName), System.Drawing.Image)
    End Function

- Important: il faut d'abord importer les fichiers d'icônes dans les ressources du projet. Les fichiers doivent être eu format .png, et appelés dans le XML sans extension (Image="asterisque")
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Il me reste le problème suivant:
- J'ai importé d'autres fichiers png dans les ressources avec les mêmes caractéristiques que l’icône qui fonctionne:
- taille entre 10 et 20Ko
- dimensions entre 150x150 et 225x225
Certains icônes fonctionnent, et d'autres pas avec les mêmes caractéristiques.

J'ai essayé de nombreux fichiers et j'en ai seulement 4 qui s'affichent correctement.Y aurait-il une manip à faire autre que d'importer un nouveau fichier dans les ressources, genre un traitement à effectuer après dans VS2019?

Qui aurait une idée ??

Matou17

**Matou17** · 14/08/2023, 12h31

Le fait d'ajouter un nouvel élement (fichier png) depuis les ressources ne suffit pas pour s'en servir comme icône dans le ruban.

Pour qu'une image soit utilisable, il faut ajouter dans le projet un élément Ruban(Concepteur visuel) , y créer un bouton et depuis les propriétés du bouton importer le fichier image.

Mettre le XML à jour avec le nom de l'icône, et cela fonctionne!

J'ai bien galéré pour trouver la solution, j'espère que ça pourra aider.

Matou17

ICONES PERSONNALISES DANS COMPLEMENT OUTLOOK EN VB .NET

VB.NET

Discussions similaires

Partager

Partager