Controle des éléments Shape

Version imprimable

15/10/2015, 10h08
Tsteel

1 pièce(s) jointe(s)

Controle des éléments Shape

Bonjour à tous.
Ma question est simple. je cherche à contrôler par macros ces 2 points.
Pièce jointe 190232

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.

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:

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

15/10/2015, 10h50
Tsteel

1 pièce(s) jointe(s)
Merci Anthony, tu m'a devancé.
Je viens de trouvé ça:
Code:

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.
Pièce jointe 190238

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

Tout simplement l'Item(3) ! :)

Test ce code :

Code:

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.

15/10/2015, 12h22
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.