Autres en ce beau dimanche un petit aperçu de mon ribbon creator vba

Staple1600

XLDnaute Barbatruc

• 14 Mars 2021

• #2

Bonjour patricktoulon

Et pas de fichier XL à tester ?
(histoire de jouer les beta-testeurs)

PS: Je ne vois qu'un beau rectangle noir (mais je sais pourquoi)
D'où les deux lignes qui précédent

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Mars 2021

• #3

bonjour Staple 1600
si SI il arrive
je fait une copie avec le dialog icon imagemso sans listview( MODELE avec ma collection userform responsif ) pour ceux qui ne veulent pas utiliser le listview
dommage j'ai pété mon micro cam j'ai donc plus de micro pour expliquer, surtout pour les controls dynamique par callback
mais c'est assez facile
laisse moi encore une petite demie heure

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Mars 2021

• #4

re
voila les deux app en post #1
merci d'avance pour les retours

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 14 Mars 2021

• #5

patricktoulon à dit:

bonjour a tous
juste un petit apercu de mon ribbon creator VBA version beta 1.0


la version avec litview ;la version sans listview et 2/3 projet commencé pour exemple
allez c'est parti les beta testeur

Cliquez pour agrandir...

Hello Patrick, JM,

C'est alléchant.... Vais jeté deux oeils.

A+

 

Dernière édition: 14 Mars 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Mars 2021

• #6

Bonjour Roblochon
tu peux
n'hésitez pas si j'ai oublié un message d'avertissement d'impossibilité de placer un element a tel ou tel endroit
je pense les avoir tous vu mais bon

les bouton de droites pour les controls
les foncés c'est "ajouter"
les clairs c'est pour insertbefore
ca m'ennuie vraiment d'avoir peté ma cam avec micro j'aurais pu expliquer de vive voie
j'essaie de réparer avec du scotch

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2021

• #7

Re, [édition: Bonjour Roblochon ]

[retour ou callback - tiens ca me rappelle : Call me may be ]
Si j'étais moi, il n'y aurait point de dossier geny dans le zip...
(cf... le fameux point 8)]
[/retour]
Ceci dit, je vais passer au test pour un retour axé sur le VBA.

 

Dernière édition: 14 Mars 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2021

• #8

Re

Très bel ouvrage
(mais code trop condensé pour une lecture facile)

Sinon pour ma gouverne

VB:

 HandleClipImage = ExecuteExcel4Macro("CALL(""user32"",""GetClipboardData"",""JJ""," & &HE & ")")
    Retour = ExecuteExcel4Macro("CALL(""gdi32"",""CopyEnhMetaFileA"",""JJC""," & HandleClipImage& & ",""" & FicTmp & """)")
    ExecuteExcel4Macro ("CALL(""gdi32"",""DeleteEnhMetaFile"",""JJ""," & Retour & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""CloseClipboard"",""J"")")
    getcopyWMF = FicTmp

Tu mets mettre quelques commentaires et explications, stp ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Mars 2021

• #9

re
cette fonction execute les api sans déclaration (pour compatibilité(32/64))
elle est faite pour loader une image(png,ico) sur la feuille la copier en metafichier sur le bureau et je fait un loadpicture sur les label représentant l élément du ruban sélectionné dans la vue de gauche
sinon on pourrait pas avoir le visuels des icon perso si c'est des png ou ico dans les labels de la vue de gauche car le WMF(windows meta fichier (avec ou sans transparence)) sont compatibles avec les activx dans les userforms c'est juste pour avoir le visuel sur l'icon dans la vue pendant la construction du ruban

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Mars 2021

• #10

re

'recupe le handleimage dans les data du clipboard de type 14 (&HE) qui est le type WMF généré par le copy picture sans argument qui fait une copie en WMF
HandleClipImage = ExecuteExcel4Macro("CALL(""user32"",""GetClipboardData"",""JJ""," & &HE & ")")


'retour = le retour (reussi ou pas) de la copie sur le bureau
Retour = ExecuteExcel4Macro("CALL(""gdi32"",""CopyEnhMetaFileA"",""JJC""," & HandleClipImage& & ",""" & FicTmp & """)")


'delete le meta fichier du clipboard
ExecuteExcel4Macro ("CALL(""gdi32"",""DeleteEnhMetaFile"",""JJ""," & Retour & ")")


'ferme le clipboard
ExecuteExcel4Macro ("CALL(""user32"",""CloseClipboard"",""J"")")


'la fonction retourne le chemen du fichier image WMF temporaire sur le bureau
getcopyWMF = FicTmp

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2021

• #11

Re

Ca, j'avais compris
Je parlais de commentaires qui explique la syntaxe
ExecuteExcel4Macro("CALL(...
EDITION
Houps pas rafraichi (merci pour les commentaires)

Pour la version sans ListView (je peux décocher la référence au SP6) ?

Spoiler: Sinon autre question

Désormais tu fais des versions publiques et des versions privées?
Et tous tes codes publiés sur XLD devront désormais respectés ce "mantra" ?

VB:

'licence: toute reproduction du ou des code sont interdites sauf si l'auteur est cité pour chaque portions de code copié

?
Ce qui se télescope avec ce qu'on peut lire sur XLD, non ?

Vous nous accordez une licence non exclusive, permanente, irrévocable et illimitée pour utiliser, publier ou republier votre Contenu en relation avec le Service. Vous conservez le droit d'auteur sur le contenu.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 14 Mars 2021

• #12

Bonjour à tous

Si je voulais chipoter ....


@Phil69970

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2021

• #13

Bonjour Phil69970

=>Phil
C'est normal, toutes les versions beta ou pas de patrick sont plus ou moins fâchées avec l'orthographe.
(C'est pas moi qui le dit, il le dit lui-même )

NB: On aura noté la présence de l'émoticône qui signale un trait d'humour (ou tout du moins une tentative)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Mars 2021

• #14

d'accords tu veux l'explication sur la syntaxe des apel d'api avec les macros 4
donc
exemple
ExecuteExcel4Macro ("CALL(""gdi32"",""DeleteEnhMetaFile"",""JJ""," & Retour & ")")

traduction
ExecuteExcel4Macro ("CALL(""nom de la DLL SANS EXTENTION"",""NOM DE LA FONCTION DE CETTE DLL"",""JJ""," & ARGUMENT& ")")

les "jj.etc...)
J=integer long boolean par conversion (0,1)
la fonction doit retourner un long "declare function blabla...(....) as long"
le premier j c'est pour le retour de la fonction
le second et les suivants (selon l'api) c'est les arguments

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Mars 2021

• #15

oui des fois je tape un peu trop vite mon clavier sans fil ne suit pas

 

Vote positif 0 Vote négatif