Discussion :

[Miigui]

Bonjour à toutes et tous,

j'ai besoin de vos cerveaux pour résoudre un petit problème que j'ai rencontré tout récemment.

En effet, le but de mon programme est qu'en utilisant la propriété SpatialNeighbors afin de savoir si une Shape est contenue dans une autre. Ainsi, si j'ai une Shape contenue dans une autre alors je colle ces deux forme via la méthode GlueTo. Le soucis c'est que j'ai du mal à utiliser cette méthode.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Sub Document_ShapeAdded(ByVal vsoShapeAdded As IVShape)
 
Dim vsoShapeOnPage As Visio.Shape
Dim vsoDocument As Visio.Document
Dim vsoPage As Visio.Page
 
Dim vsoReturnedSelection As Visio.Selection
Dim intSpatialRelation As VisSpatialRelationCodes
 
 
intSpatialRelation = visSpatialOverlap + visSpatialContainedIn
Set vsoReturnedSelection = vsoShapeAdded.SpatialNeighbors(intSpatialRelation, 0, 0)
 
    'Evaluate the results.
    If vsoReturnedSelection.Count = 0 Then
        'Aucune forme satisfait aux critères établis par les arguments de la méthode.
        strSpatialRelation = vsoShapeAdded.Name & " is not contained."
    Else
        'Build the positive result string.
        For Each vsoShapeOnPage In vsoReturnedSelection
           If vsoShapeOnPage.Name Like "Function*" And vsoShapeAdded.Name Like "port*" Then
               strSpatialRelation = strSpatialRelation & vsoShapeAdded.Name & " is contained by " & vsoShapeOnPage.Name & Chr$(10)
 
 
               '---> Il faut coller les Shape avec la methode GlueTo
'               expression.GlueTo (CellObject)
'               expression Variable qui représente un objet Cell
 
 
 
            End If
        Next
    End If
 
'Display the results on the shape added.
 vsoShapeAdded.Text = strSpatialRelation
 
End Sub

Comme vous avez pu le voir sur le programme ci dessus, c'est un connecteur que je veux coller à mon bloc qui représente ma fonction.
Ma fonction est un rectangle et mon port une forme appelé "I/O port"

Merci d'avance pour votre aide.

[unparia]

Bonjour
Quel est donc ton outil de développement et quelle en est sa version ?

Si tu pilotes Visio, c'est dans le forum Visio (concerné par cette syntaxe) , que doit être posée ta question

[Miigui]

Si tu pilotes Visio, c'est dans le forum Visio (concerné par cette syntaxe) , que doit être posée ta question

Oui c'est dans visio 2013.
En effet je n'avais pas vu que j'étais dans le forum dédiée à Excel

Mais peut-être avez vous des connaissances sur visio..

[unparia]

Mais peut-être avez vous des connaissances sur visio..

Non (ce logiciel m'est inconnu).
Mais même si j'en avais, je me garderais de donner dans un forum Excel une réponse que ne viendrait jamais y chercher un développeur Visio.