Discussion :

[Alexbreizhst]

Bonjour à tous,

J'ai dessiné une forme sur ma page et j'aimerais la copier en la décalant d'une distance x = 8 par exemple.
Visio me dessine des formes à l'infini et il ne les décalent pas de la valeur que je veux sur l'axe des ordonnées Y.
Voici mon code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub test()
 
Dim Spline(1 To 14) As Double
Dim i As Double
Dim Counter As Double
Dim Shape As Visio.Shape
Dim Layer As Double
Dim L As Double
Dim G As Double
Dim ShpNumber As Integer
 
 
G = 3
L = 80
Layer = 4
 
'-----------------------------Dessin de la passe centrale---------------------------
 
    Spline(1) = 0
    Spline(2) = 0
    Spline(3) = 0.2
    Spline(4) = 0.3
    Spline(5) = 1
    Spline(6) = 0.5
    Spline(7) = 1.8
    Spline(8) = 0.3
    Spline(9) = 2
    Spline(10) = 0
    Spline(11) = 1
    Spline(12) = -T / Layer
    Spline(13) = 0
    Spline(14) = 0
 
For Counter = 1 To UBound(Spline) Step 2
    Spline(Counter) = Spline(Counter) + L + G / 2
Next Counter
 
'--------------Copie et décalage en Y = Y + 0.6 T/Layer de la passe centrale--------
 
i = 1
Do While i <= Layer
 
    For Counter = 2 To UBound(Spline) Step 2
        Spline(Counter) = Spline(Counter) + 0.6 * T / Layer
        Set Shape = ActivePage.DrawSpline(Spline, 0.1, visSplinePeriodic)
    Next Counter
 
i = i + 1
 
Loop
 
'------------------------Epaisseur des traits de construction à 0.01 pt--------------------
 
 For ShpNumber = 1 To Visio.ActivePage.Shapes.Count
    Set Shape = Visio.ActivePage.Shapes(ShpNumber)
        Debug.Print Shape.Name; " "; Shape.Cells("LineWeight")
        Shape.Cells("LineWeight") = 0.01 / 7.2
        Debug.Print Shape.Name; " "; Shape.Cells("LineWeight")
 Next
 
End Sub

Par ailleurs j'aimerais savoir si on peut nommer une shape ? Par exemple la première copie j'aimerais l'appeler Copie1, la deuxième copie Copie2 etc....

Cela me permettrait de choisir la forme que je veux pour ensuite realiser des operations comme Flip.Horizontal ou Flip.Vertical.

Merci à vous si vous pouvez m'apporter des réponses

[Alexbreizhst]

Problème résolu , j'vais tout bêteùent omis de declarer la variable T en Dim T as Double dans ma declaration de variable