[VB] commandbar

je voudrais creer une nouvelle bar dans coreldraw où j'insererais un bouton

voila le debut de mom code mais j'arrive pas a ajouter un bouton

Code:

---

1 2 3 4 5 6

Sub Personnalisé() With CommandBars.Add("print", cuiBarTop, True) .Visible = True .Controls.Add ???? end with end sub

---

J'ignorais que CorelDraw pouvait intégrer des commande VB.
Ceci dit, s'il le fait et si tu souhaites agir dans CorelDraw depuis VB, tu dois déclarer et instancier l'appli concernée
Je ne pense pas que tu trouves d'exemple pour CorelDraw sur le forum mais tu peux adapter le code servant depuis VB à travailler sur l'une des applis d'Office
Je te donne un exemple, donné par SilkyRoad, sorti tout droit d'un autre post où il est question de copier des données d'Excel dans Word

Code:

---

1 2 3 4

Dim appWrd As Word.Application Dim docWord As Word.Document Set appWrd = createObject("Word.Application")

---

Ensuite tu travailles "With appCorel"
Juste pour faire avancer le Schmilblic ;)

A+

Je me demande quelle version de CorelDraw accepte une telle chose !

la version de corel draw suite graphique 12

bon g alors g trouver sa:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Personnalisé() 'création d'une barre de commande comportant un bouton exécutant la macro test() Dim bar As CommandBarControls 'initialisation d'un control 'création d'une barre de commande With commandbars.Add("print", cuiBarFloating, False) .Visible = True 'rend actif la barre   Set bar = .Controls 'création d'un control   'ajout d'un bouton qui renvoie a la macro test() With bar.AddCustomButton("Macros", "nicotest.Module1.test", 1, False) .ToolTipText = "print" 'infobulle .Caption = "print" 'facultatif 'chemin d'accès de l'icône du bouton .SetCustomIcon ("C:\Documents and Settings\stagG\Mes documents\Mes images\laser.bmp") .Tag = .Caption 'facultatif   End With End With End Sub

---

Est ce qu'il est possible de faire une sorte d'executable qui installerait cette macro sur plusieur poste?