[PPT-2007] redimension et position avec macro [Résolu]

[rambal]

Bonjour,

je n'arrive pas a produire cette macro a l'aide de l'enregistreur

Une fois une image inserrer

est-il possible de crer une macro qui redimentionne et position celle ci
la taille est 13*21.5cm
la position et 1.5*3
coin sup gauche

Merci par avance

[rambal]

je ne veu pas concerver la proportionnalité de l'image

[Philippe JOCHMANS]

Bonjour

En faisant une recherche sur le forum PowerPoint avec le mot Image tu trouveras de nombreux exemples, comme cela :

http://www.developpez.net/forums/d88...xte-image-vba/
http://www.developpez.net/forums/d90...e-diapositive/

Maintenant à toi de préciser si l'image est déjà dans le diaporama, où si tu veux tout faire au moment de l'import.

Philippe

[rambal]

j'ai bien visité les deux lien cité plus haut

Néans moins je n'ai pas trouver le moment ou l'on retaille l'image.

De plus
il s'agit d'une image qui se trouve deja dans le slide

Mais,
je ne serait pas contre le faite qu'il colle l'image se trouvant dans le cache de prise d'écran

[rambal]

Le but de la manipulation etant d'eviter:

-le clique droit sur l'image
-taille et position
Dans l'onglet taille
-hauteur 13
-decocher la case proportionnelle
-largeur 21.5
Puis onglet Position
-H1.5
-V3
pour chaque image sur chaque slide

bien sur je travaille en conception

Le powerpoint etant en cour de constructiond'autre slide sont ammener a etre creer se n'est donc pas une mise en forme du ppt mais du slide par slide

[rambal]

Est -il possible de vous demander les ligne de commande qui apres la selection de l'image par un clic de souris dit:

Proportion off
taille H L
Position V H

Merci

Je vous avous que je suis un peu perdu dans les ligne de code des lien sité plus haut.
Et je n'ai pas l'impression qu'elle me corresponde.

[Philippe JOCHMANS]

Re

J'ai pris 10 minutes pour te montrer un exemple, voici un code à coller dans un module et à enclencher en appuyant sur la touche F5, après avoir positionné le curseur de la souris dans la procédure.

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
32
33
34
35
36
37
Public Sub RecadrageImage()
     '=======================================================================================
     ' Procedure    : RecadrageImage
     ' Auteur       : Philippe JOCHMANS - http://starec.developpez.com
     ' Date         : 11/11/2011
     ' Commentaires : ouverture et recadrage image
     '=======================================================================================
 
    ' déclaration
    Dim objPres As Presentation
    Dim objSld As Slide
    Dim objShp As Shape
    Dim strImage As String
    Dim objDlg As FileDialog
 
 
    ' affectation
    Set objPres = ActivePresentation
    Set objSld = objPres.Slides(1)          ' on mettra l'image dans la première diapositive
    Set objDlg = Application.FileDialog(msoFileDialogOpen)      ' boite de dialogue qui permet de sélectionner une image
 
    ' ouverture de la boite de dialogue pour sélectionner une image
    objDlg.Show
    ' récupération du chemin de l'image
    strImage = objDlg.SelectedItems(1)
    ' création de l'image sur la diapositive
    Set objShp = objSld.Shapes.AddPicture(strImage, msoFalse, msoTrue, 0, 0, 100, 100)
    ' on modifie la taille de celle-ci
    With objShp
        .LockAspectRatio = msoFalse     ' désactivation du ration
        .Height = 130                   ' hauteur
        .Width = 215                    ' largeur
        .Top = 10                       ' position par rapport au haut de la diapo
        .Left = 10                      ' postion par rapport au bord gauche de la diapo
    End With
 
End Sub

C'est comme je te l'ai dit un petit exemple, avec l'aide VB de PowerPoint, tu devrais trouver plus d'explications sur les différentes éléments.

Philippe

[rambal]

Merci pour vos conseils

Avec votre concour et celui de mon frere j'ai aboutie à cela

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
Sub V002()
 
'Call ctrlV
SendKeys "^v", True
 
 
Dim image As Shape
    On Error Resume Next
     'essayer de récupérer l'image ou la forme sélectionnée
     Set image = ActiveWindow.Selection.ShapeRange(1)
    On Error GoTo 0
 
    If image Is Nothing Then
        MsgBox "Aucune image selectionner ! Veuilliez Selectionnez une image et relancez la macro! $ouri$ et R@mb@l"
        Exit Sub
    End If
    'redimensionner l'image / la forme
    With image
        .LockAspectRatio = msoFalse     ' désactivation du ratio
        .Height = 368.5554589           ' hauteur
        .Width = 609.5340282            ' largeur
        .Top = 84.9838                  ' position par rapport au haut de la diapo
        .Left = 42.613636               ' postion par rapport au bord gauche de la diapo
    End With
        'By $ouri$ & R@mb@l
End Sub

Je pense que se sujet peu etre cloturer

Bonne soirée a vous