Existe-t-il une méthode disponible pour copier une section d'une forme vers une autre forme en utilisant VBA? J'essaie spécifiquement de copier toutes les propriétés personnalisées et les cellules d'utilisateur d'une feuille de page à une autre page.Comment copier une section de feuille de calcul Visio entre des formes dans VBA
1
A
Répondre
1
Malheureusement, il n'existe pas de méthode simple pour cela. Vous devrez parcourir toutes les lignes de la feuille source et créer les mêmes lignes dans la feuille de destination. .: par exemple
Dim oPageSheet1 As Visio.Shape
Dim oPageSheet2 As Visio.Shape
Dim rowName As String
Dim i As Integer
Set oPageSheet1 = Visio.ActiveDocument.Pages.Item(1).PageSheet
Set oPageSheet2 = Visio.ActiveDocument.Pages.Item(2).PageSheet
i = visRowUser
While oPageSheet1.CellsSRCExists(visSectionUser, i, visUserValue, False)
oPageSheet2.AddNamedRow visSectionUser, oPageSheet1.Section(visSectionUser).Row(i).NameU, 0
oPageSheet2.Section(visSectionUser).Row(i).Name = oPageSheet1.Section(visSectionUser).Row(i).Name
oPageSheet2.CellsSRC(visSectionUser, i, visUserValue).FormulaU = oPageSheet1.CellsSRC(visSectionUser, i, visUserValue).FormulaU
oPageSheet2.CellsSRC(visSectionUser, i, visUserPrompt).FormulaU = oPageSheet1.CellsSRC(visSectionUser, i, visUserPrompt).FormulaU
i = i + 1
Wend
Si vous devez copier un grand nombre de lignes et de la performance est une considération que vous devez enquêter sur l'utilisation AddRows et SetFormulas.
Questions connexes
- 1. copier une feuille de calcul d'une feuille de calcul à une autre
- 2. Excel feuille de calcul
- 3. Comment faire pour capturer une feuille de calcul en cours d'ajout via Copier/Coller dans Excel VBA
- 4. Comment automatiser une feuille de calcul
- 5. Comment copier des données d'une feuille de calcul à une autre
- 6. Masquage d'une feuille de calcul Excel avec VBA
- 7. Excel: Remplir une feuille de calcul avec des lignes correspondantes
- 8. animation VBA d'objets Visio
- 9. Compréhension de liste dans une feuille de calcul Open Office
- 10. Feuille de calcul de DataTable
- 11. Macro pour copier les lignes sélectionnées dans une autre feuille de calcul et trier par mois
- 12. Utiliser VBA pour copier une image des en-têtes/pieds d'une feuille à une autre
- 13. Capture de l'événement Click dans une feuille de calcul Excel
- 14. Comment lire la feuille de calcul xml
- 15. Ouverture de la connexion ADO à la feuille de calcul Excel dans VBA
- 16. Comment remplir une plage dans une feuille de calcul Excel avec une formule matricielle en utilisant VBA?
- 17. Un objet de feuille de calcul peut-il être déclaré globalement dans Excel VBA?
- 18. Feuille de calcul partagée avec des macros dans Excel 2003
- 19. Quelle est la meilleure façon d'obtenir la dernière feuille de calcul non vide dans Excel (VBA)
- 20. Feuille de calcul: compte les valeurs répétées dans une colonne
- 21. Comment forcer visio à ré-évaluer des formules lorsqu'un document visio non approuvé est ouvert
- 22. Appel d'Excel Solver VBA à partir d'une autre feuille de calcul
- 23. Caractère de saut de section VBA Word dans
- 24. Comment créer une table SQL et la remplir avec des données de feuille de calcul Excel?
- 25. Winforms hébergement feuille de calcul Excel
- 26. Ajouter des sous-totaux à des données dans une feuille de calcul
- 27. Comment puis-je exporter les données dans une donnée DataGridView vers une feuille de calcul Excel?
- 28. Remplir une feuille de calcul avec un tableau
- 29. Comment insérer un saut de ligne dans une cellule de feuille de calcul OPENXML?
- 30. Open XML SDK 2.0 - comment mettre à jour une cellule dans une feuille de calcul?