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
|
Option Explicit
Sub Test()
Dim PpPresent As Presentation
Dim SlideEnCours As Slide
Dim Shape3D As Shape
Set PpPresent = ActivePresentation
With PpPresent
Set SlideEnCours = .Slides(2)
With SlideEnCours
Set Shape3D = .Shapes(1)
With Shape3D
' partie de code récupéré dans la macro Excel
.IncrementRotation 42.0203
.ScaleWidth 1.0356174381, msoFalse, msoScaleFromBottomRight
.Model3D.RotationX = 66.8596
.Model3D.RotationY = 314.0371
.Model3D.RotationZ = 300.7311
.Model3D.RotationX = 88.9848833333
.Model3D.RotationY = 341.4034333333
.Model3D.RotationZ = 273.1814833333
.ScaleWidth 0.7929553806, msoFalse, msoScaleFromBottomRight
.ScaleHeight 0.7929555284, msoFalse, msoScaleFromBottomRight
End With
Set Shape3D = Nothing
End With
Set SlideEnCours = Nothing
End With
Set PpPresent = Nothing
End Sub |
