Discussion :

[ptitnico22]

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 :

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

1
2
3
4
5
6
Sub Personnalisé()
With CommandBars.Add("print", cuiBarTop, True)
.Visible = True
.Controls.Add ????
end with
end sub

[ouskel'n'or]

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 :

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

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+

[jmfmarques]

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

[ptitnico22]

la version de corel draw suite graphique 12

bon g alors g trouver sa:

Code :

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
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?