Discussion :

[beware]

Bonjour,

j'ai besoin de réaliser plusieurs diagrammes fonctionnels contenant plusieurs sous-blocs, eux mêmes contentant plus ou moins d'entrées/sorties.

Bref, pour faire simple chaque sous-bloc est un carré sur lequel je viens positionner des points de connections autant que j'en ai besoin.

Je voulais savoir, s'il était possible, à partir d'un carré simple de demander à Visio de positionner de manière automatique et équidistant un nombre N de points sur un des cotes de ce carré?

merci.

[champenois51]

bonjour
je ne pense pas que ce soit possible.
quel est la version que tu utilises ?
il existe un outil pour créer des formes empilables mais c'est dans visio 2000.
mais ça ne conviendra pas pour des points de connexion.
peux-tu m'en dire plus !!

[champenois51]

j'ai trouvé une astuce mais il me faut une adresse pour t'envoyer.
je dis bien une astuce qu'il faut encore travailler.

[beware]

Bonjour,

Désolé pour le retard de ma réponse, mais j'ai eu quelques problèmes de réseau.
Bref, j'utilise la version 2007 de Visio.
Je me doutais que ce n'était pas si simple, mais je suis intéressé par ton astuce.

Normalement, tu peux m'envoyer un mail via le forum.

[champenois51]

bonjour
le problème est qu'on ne peut pas mettre de fichier visio.

[beware]

bonjour
le problème est qu'on ne peut pas mettre de fichier visio.

Ah oui, j'avais pas pensé à ça.

Merci

[lolod]

Bonjour,

j'ai besoin de réaliser plusieurs diagrammes fonctionnels contenant plusieurs sous-blocs, eux mêmes contentant plus ou moins d'entrées/sorties.

Bref, pour faire simple chaque sous-bloc est un carré sur lequel je viens positionner des points de connections autant que j'en ai besoin.

Je voulais savoir, s'il était possible, à partir d'un carré simple de demander à Visio de positionner de manière automatique et équidistant un nombre N de points sur un des cotes de ce carré?

merci.

Bonjour

j'ai fait une macro dans visio 2010 qui fait ca mais uniquement pour un objet cercle ( précisément "Centre cercle mobile") . tu peux t'en inspirer pour d'autres formes.

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
Sub ResetCnxCircle()
    ' réinitialise toutes les points de connexions d'une cercle :
    ' les supprime tous (y compris le centre) , puis recréer le nombre demandé à interval régulier
    Dim shp As Visio.Shape
    Dim NbDiv, ShapeID, NbCurDiv As Integer
    Dim i As Integer
    Dim Angle As Double
    Const PI = 3.14159265358979
 
    If (ActiveWindow.Selection.Count <> 1) Then Exit Sub
 
    Set shp = Visio.ActiveWindow.Selection(1)
    ShapeID = shp.ID
 
    If (ActiveWindow.Selection(1).Master <> "Centre cercle mobile") Then Exit Sub
 
    NbCurDiv = Application.ActiveWindow.Page.Shapes.ItemFromID(ShapeID).RowCount(Visio.visSectionConnectionPts)
 
    NbDiv = InputBox("Entrer le nombre de division (nombre actuel " & NbCurDiv & " )", "Data Entry")
    If NbDiv = "" Then NbDiv = "10"
    DeleteAllCnxPt (ShapeID)
 
    For i = 1 To NbDiv
        Angle = 2 * PI * i / NbDiv
        If DebugActif Then Debug.Print ("créer connexion pour angle " & Angle)
        AddCnx Cos(Angle), Sin(Angle), ShapeID
    Next i
End Sub