Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Membre du Club
    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 : 67
    Points
    67

    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 :
    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 :
    Dim vsoSelection1 As Visio.Selection
    par
    Code :
    Dim vsoSelection1 As Object
    mais ça ne fonctionne pas...

    Une petite idée pour m'aider svp?

  2. #2
    Membre du Club
    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 : 67
    Points
    67

    Par défaut

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


    Code :
    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.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •