1. #1
    Membre régulier
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2012
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2012
    Messages : 127
    Points : 74
    Points
    74

    Par défaut Copier coller un calque en vba

    Bonjour à tous,

    J'ai le code suivant qui fonctionne lorsque je mets visio dans mes références:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim vsoSelection1 As Visio.Selection
        Set vsoSelection1 = Vapp.ActiveWindow.Page.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, "réglage;fond std;traça")
        Vapp.ActiveWindow.Selection = vsoSelection1
        Vapp.ActiveWindow.Selection.Copy
    Cependant je ne souhaite pas mettre visio en référence, donc je ne peux pas utiliser le code ci dessus tel quel...

    J'ai remplacé
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim vsoSelection1 As Visio.Selection
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim vsoSelection1 As Object
    mais ça ne fonctionne pas...

    Une petite idée pour m'aider svp?

  2. #2
    Membre régulier
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2012
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2012
    Messages : 127
    Points : 74
    Points
    74

    Par défaut

    Voici les corrections à apporter à mon code pour qu'il fonctionne sans la référence visio:


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim vsoSelection1 As object
        Set vsoSelection1 = Vapp.ActiveWindow.Page.CreateSelection(3, 256, "réglage;fond std;traça")
        Vapp.ActiveWindow.Selection = vsoSelection1
        Vapp.ActiveWindow.Selection.Copy

+ Répondre à la discussion
Cette discussion est résolue.

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo