Discussion :

[bubus31]

Bonjour,

je viens de créer des formes et je souhaite les grouper par macro, et le probleme se pose car il me faut les noms de ces formes...bref comment automatiser le processus pour grouper les formes que je viens juste de créer et sachant qu'il a d'autres formes sur la page?

Merci de vos conseils,

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
 
Sub creer_deux_formes()
'
'
    ActiveWindow.Selection.SlideRange.Shapes.AddLine(87.88, 332.38, 87.88, 349.38).Select
    With ActiveWindow.Selection.ShapeRange
        .Line.EndArrowheadStyle = msoArrowheadTriangle
        .Line.EndArrowheadLength = msoArrowheadLengthMedium
        .Line.EndArrowheadWidth = msoArrowheadWidthMedium
    End With
    ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 48.125, 355#, 79.375, 14.5).Select
    ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue
    With ActiveWindow.Selection.TextRange.ParagraphFormat
        .LineRuleWithin = msoTrue
        .SpaceWithin = 1
        .LineRuleBefore = msoTrue
        .SpaceBefore = 0.5
        .LineRuleAfter = msoTrue
        .SpaceAfter = 0
    End With
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
    With ActiveWindow.Selection.TextRange
        .Text = "Voir page "
        With .Font
            .Name = "Arial"
            .Size = 6
            .Bold = msoFalse
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
            .Color.SchemeColor = ppForeground
        End With
    End With
 
End Sub
 
Sub grouper()
ActiveWindow.Selection.SlideRange.Shapes.Range(Array("Line 4", "Text Box 5")).Select
    ActiveWindow.Selection.ShapeRange.Group.Select
 
end sub

[bubus31]

Bonjour,

bon j'ai trouvé la solution et je la fais partager pour ceux qui auront cette question un jour:

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
 
Sub Insertion_formes_groupees()
'je selectionne la slide active
Set myDocument = ActiveWindow.Selection.SlideRange
'j'ajoute mes formes et les nomme
With myDocument.Shapes
    .AddLine(87.88, 332.38, 87.88, 349.38).Name = "shpOne"
    .AddTextbox(msoTextOrientationHorizontal, 48.125, 355#, 79.375, 14.5).Name = "shpTwo"
'proprietes de ma textbox    
ActiveWindow.Selection.SlideRange.Shapes("shpTwo").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue
 
    With ActiveWindow.Selection.TextRange.ParagraphFormat
        .LineRuleWithin = msoTrue
        .SpaceWithin = 1
        .LineRuleBefore = msoTrue
        .SpaceBefore = 0.5
        .LineRuleAfter = msoTrue
        .SpaceAfter = 0
    End With
 
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
 
    With ActiveWindow.Selection.TextRange
        .Text = "Voir page "
        With .Font
            .Name = "Arial"
            .Size = 6
            .Bold = msoFalse
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
            .Color.SchemeColor = ppForeground
        End With
     End With
  'prorpietes de ma fleche  
  ActiveWindow.Selection.SlideRange.Shapes("shpOne").Select
  With ActiveWindow.Selection.ShapeRange
     .Line.EndArrowheadStyle = msoArrowheadTriangle
   .Line.EndArrowheadLength = msoArrowheadLengthMedium
  .Line.EndArrowheadWidth = msoArrowheadWidthMedium
    End With
 'grouper les deux formes    
    With ActiveWindow.Selection.SlideRange.Shapes.Range(Array("shpOne", "shpTwo")).Group
    End With
 
End With
 
End Sub