Discussion :

[PetitDragon61]

Bonjour,

Je commence à m'amuser à insérer des objets 3D dans mes slides. Je travaille avec MS 3D builder pour l'instant, je passerai à Adobe Dimension un peu plus tard.

Le problème que j'ai est que les objets, une fois importés dans PPT sont "trop grands". C'est à dire que j'ai trop de perspective. Si je fais un cube et que je l'importe il a l'air d'avoir 10 m. de haut au moment ou j'applique une rotation. J'ai changé les dimensions dans 3D builder mais ça n'a pas l'air d'avoir un effet quand je l'importe.

En agissant sur le paramètre Caméra > Field of View (profondeur de champs en français, j'imagine), je peux corriger l'effet de perspective exagérée. Je dois alors rapprocher la caméra pour ne pas avoir un objet minuscule sur ma slide. C'est comme si, voulant photographier un bâtiment, je m'éloignais et que j'utilisais un téléobjectif pour corriger la perspective, en fait.
Cependant, ces paramètres agissent sur la caméra et pas sur l'objet. Du coup, dès que j'applique une rotation, l'objet part à l'autre bout de la slide ou carrément hors champs.

Bref, y-a-t'il un moyen de redimensionner l'objet lui même en le gardant au centre (sur les 3 axes) de ma slide ?

Merci

[Invité]

Bonjour,

Je ne vais pas répondre directement à votre question, mais seulement vous donner une astuce pour manipuler les objets 3D sur Power point.
J'ai créé un slide vide et inséré cet objet 3D :
Pièce jointe 586131

J'ai créé ensuite un fichier Excel et j'ai inséré le même objet 3D. Avec l'enregistreur de macro, j'ai trituré l'objet dans tous les sens et dimensions. J'ai récupéré ensuite les lignes de code propres à l'objet et les ai collées en aval d'un objet Shape dans PowerPoint comme ceci :

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
 
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

Résultat :
Pièce jointe 586127