Discussion :

[Tsteel]

Bonjour à tous.
Ma question est simple. je cherche à contrôler par macros ces 2 points.


J'ai trouvé comment dimensionner, et positionner l'élément shape.
J'ai aussi trouvé des solutions 3D avec ".ThreeD"
Mais ça je bute dessus.
Est'ce possible ?
(Je suis sur Excel 2010.)

Merci d'avance.

[antonysansh]

Bonjour Tsteel,

Comme tu es sur 2010, tu peux utiliser l'enregistreur de macro pour générer du code est ensuite t'inspirer du code.

Voilà ce que m'a sortir l'enregistreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro1()
    ActiveSheet.Shapes.Range(Array("Block Arc 1")).Select
    Selection.ShapeRange.Adjustments.Item(2) = 134.9730166667
    Selection.ShapeRange.Adjustments.Item(1) = 157.02485
End Sub

[Tsteel]

Merci Anthony, tu m'a devancé.
Je viens de trouvé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Angle_segment_1()
   ActiveSheet.Shapes("Segment").Select
   Selection.ShapeRange.Adjustments.Item(1) = Range("A1")
   Selection.ShapeRange.Adjustments.Item(2) = Range("A2")
End Sub

Les 2 points en question c'est "item(n° du point)"
ça permet de contrôler l'angle du segment mais pas sont épaisseur.


Comment donc ?
Peut être le terme ".Adjustments" qu'il faut changer ?

[antonysansh]

Tout simplement l'Item(3) !

Test ce 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
Sub PACMAN()
    Dim shp As Shape, i&
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeBlockArc, 186, 123.75, 72, 72)
    With shp
        .Fill.ForeColor.RGB = RGB(255, 255, 0)
        .Line.ForeColor.RGB = RGB(255, 255, 0)
        .Adjustments.Item(1) = 30
        .Adjustments.Item(2) = 360 - 30
        For i = 0 To 500
            Application.Wait Now + TimeSerial(0, 0, 0.1)
            .Adjustments.Item(3) = i / 1000
        Next i
        For i = 1 To 10
            Application.Wait Now + TimeSerial(0, 0, 0.6)
            If i Mod 2 = 0 Then
                .Adjustments.Item(1) = 10
                .Adjustments.Item(2) = 360 - 10
            Else
                .Adjustments.Item(1) = 30
                .Adjustments.Item(2) = 360 - 30
            End If
        Next i
        For i = 500 To 0 Step -1
            Application.Wait Now + TimeSerial(0, 0, 0.1)
            .Adjustments.Item(3) = i / 1000
        Next i
        .Delete
    End With
fin:
    Set shp = Nothing
End Sub

Item(3) n’a un intérêt que pour des valeurs entre 0 et 0.5 c'est en fait une proportion du diamètre.

[Tsteel]

Super le Pacman.

J'avais pas compris la signification de "Item".
Je pensais que c'était la désignation du point.

Le difficulté maintenant c'est de trouver une correspondance en mm, par rapport à mon application.
ce schéma représente l'épaisseur d'un tube dans la réalité.

Merci c'est parfait.