Bonjour à tous,
Je suis en train de créer un ruban personnalisé que je voudrais appliquer plus tard à l'ensemble de mes documents comme une espèce de "Norme documentaire".
Dans ce ruban personnalisé j'aimerais mettre à disposition des logos et les insérer en cas de clique dessus.
j'ai réussi à créer une galerie qui va chercher des logos et les affiches par contre je ne trouve pas comment récupérer l'adresse des items images afin de pouvoir les insérer dans le documents Word.
Voici mon code XML de personnalisation du RUBAN
Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" loadImage="OnLoadImage"> <ribbon startFromScratch="false"> <tabs> <tab id = "SPTSFrance" label="SPTS France" insertAfterMso="TabHome"> <group id="Logos" label="Logos"> <gallery id="ClientsLogosButton" label="Clients Logos" itemHeight="100" itemWidth="100" size="large" imageMso="PictureEffectsShadowGallery" onAction="ClientsLogos_Click"> <item id="ClientImg1" image="501_Logo_1.jpg"/> <item id="ClientImg2" image="603_Logo_1.jpg"/> <item id="ClientImg3" image="603_Logo_2.jpg"/> <item id="ClientImg4" image="603_Logo_3.jpg"/> <item id="ClientImg5" image="603_Logo_4.jpg"/> </gallery> <gallery id="ProvidersLogosButton" label="Providers Logos" itemHeight="100" itemWidth="100" size="large" imageMso="PictureEffectsShadowGallery"> <item id="ProviderImg1" image="Chrysanthemum.jpg"/> </gallery> </group> </tab> </tabs> </ribbon> </customUI>
Voici le code qui anime la galerie
Voici le code qui devrait me permettre d'insérer l'image sélectionnée dans le document, Enfin si je savais quoi mettre à l'intérieur!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub OnLoadImage(ImageName As String, ByRef Image) ' ' LogoManagement Macro ' ' get the image path Dim stPath As String stPath = Environ("USERPROFILE") & "\Pictures\" & ImageName Set Image = LoadPicture(stPath) End Sub
En espérant un petit coup de main, merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub ClientsLogos_Click(control As IRibbonControl, id As String, Index As Integer) End Sub
Partager