Discussion :

[d.florian]

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

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

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
Sub ClientsLogos_Click(control As IRibbonControl, id As String, Index As Integer)
 
End Sub

En espérant un petit coup de main, merci d'avance.

[Heureux-oli]

Salut,

Je ne pense pas que Word puisse ouvrir ses propres xml pour en récupérer les données.

La seule solution est de mettre tes objets quelque part pour pouvoir les mettre dans ton document.