1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    avril 2010
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : avril 2010
    Messages : 3
    Points : 5
    Points
    5

    Par défaut Retablir taille image en automatique avec VBA

    Bonjour à tous,

    sur PPT je créé un diaporama en utilisant le bouton "insertion>>album photo".
    Ensuite, je modifie la taille des diapos et à ce moment, la taille des photos est modifiée.
    Je dois alors cliquer droit sur chaque photo "taille et proportion >> rétablir"

    Le probleme est que j'ai parfois une centaine de photo à redimensionner.

    Quelqu'un pourrait m'indiquer la fonction à utiliser en VBA ?

    Merci par avance pour votre aide !!

    LD

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA, C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    13 028
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA, C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 13 028
    Points : 29 205
    Points
    29 205

    Par défaut

    Salut,

    Est-ce que ton problème est similaire à celui-ci :
    https://www.developpez.net/forums/d1...blir-sous-vba/
    ?
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre habitué
    Inscrit en
    avril 2008
    Messages
    80
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : avril 2008
    Messages : 80
    Points : 156
    Points
    156

    Par défaut

    Bonjour à tous,

    Pour ma part, je n'ai pas compris la même chose que Jean-Philippe.

    Voici un essai qui redimensionne à la taille originale toutes les images de tous les slides de la présentation active :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub ResizeImg()
    Dim l_o_pres As Presentation
    Dim l_o_sld As Slide
    Dim l_o_shp As Shape
     
        Set l_o_pres = ActivePresentation
     
        For Each l_o_sld In l_o_pres.Slides
            For Each l_o_shp In l_o_sld.Shapes
                If l_o_shp.Type = msoPicture Then l_o_shp.ScaleWidth 1, msoCTrue
            Next l_o_shp
        Next l_o_sld
    End Sub
    A+

Discussions similaires

  1. [XL-2007] Problème filtre automatique avec vba
    Par aziz1015 dans le forum Macros et VBA Excel
    Réponses: 18
    Dernier message: 22/07/2015, 16h52
  2. Filtre automatique avec VBA
    Par aziz1015 dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 20/07/2015, 22h17
  3. Insérer image dans mail avec vba et outlook
    Par cemyr dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 16/03/2012, 02h01
  4. [Toutes versions] Filtre automatique avec vba
    Par sabzzz dans le forum Contribuez
    Réponses: 0
    Dernier message: 13/04/2010, 21h17
  5. Edition planning automatique avec VBA
    Par Grobibi34 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 05/03/2008, 12h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo