IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Excel vers powerpoint : copier/coller spécial


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 30
    Par défaut Excel vers powerpoint : copier/coller spécial
    Bonjour,

    J'ai un tout petit problème... alors je viens de trouver cette discussion et j'ai un peu le même soucis.
    Mon soucis en gros ce trouve dans la partie en gras ^^
    Je ne sais comment sélectionner une range sous excel que j'ai collé

    Voici mon soucis
    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
    Sub le_bon_pps2()
    
    Set wdapp = CreateObject("powerpoint.application")
    wdapp.Visible = True
    Set doc = wdapp.Presentations.Add
    
    
    Sheets("Scorecard_BU").Activate
    ActiveSheet.Range("A1:P32").Select
    Selection.Copy
    
    wdapp.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutText).Select
    wdapp.ActiveWindow.Selection.SlideRange.Layout = ppLayoutLargeObject
    wdapp.ActiveWindow.Selection.SlideRange.Shapes.SelectAll
    wdapp.ActiveWindow.Selection.ShapeRange.Delete
    'je colle une range sous format bitmap et sa fonctionne :lol:
    wdapp.ActiveWindow.View.PasteSpecial DataType:=ppPasteBitmap, DisplayAsIcon:=msoTrue, IconLabel:="BSC"
    
    'mais horreur je trouve pas comment selectionné mon image... j'ai tenté Image, Picture etc au niveau de la ligne qui suis et plus particulièrement du ce qui est en gras... mais je trouve pas :(
    'Si quelqu'un pouvait me dire comment le selectionner car sa fait 2h que je lis les aides Microsoft... mais ils doivent croire qu'on comprend tout et n'explique pas tjrs ... grrrrrrr
    wdapp.ActiveWindow.Selection.Slide.OLEObject.SelectAll
        With ActiveWindow.Selection
            .Fill.Transparency = 0#
            .LockAspectRatio = msoFalse
            .Height = 510.12
            .Width = 702.75
            .Left = 8.5
            .Top = 8.5
        End With
    
    end sub
    Je vous remercie par avance pour vos aides

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    652
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juin 2009
    Messages : 652
    Par défaut Excel vers powerpoint : copier/coller spécial
    Bonjour,

    Une piste avec le code suivant à copier dans un module standard d'Excel.

    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
     
    '################################################################
    '### Nécessite la Library PowerPoint (xx est le N° de version)###
    '### Microsoft PowerPoint xx.0 Object Library                 ###
    '### C:\Program Files\Microsoft Office\OFFICExx\msppt.olb     ###
    '################################################################
    Sub PasteExcel2PowerPoint()
    Dim PPT As PowerPoint.Application
    Dim PRES As PowerPoint.Presentation
    Dim SL As PowerPoint.Slide
    Sheets("Scorecard_BU").Range("A1:P32").Copy
    Set PPT = CreateObject("powerpoint.application")
    PPT.Visible = True
    Set PRES = PPT.Presentations.Add
    Set SL = PRES.Slides.Add(Index:=1, Layout:=ppLayoutLargeObject)
    SL.Shapes.SelectAll
    With PPT.ActiveWindow
      .Selection.ShapeRange.Delete
      .View.PasteSpecial DataType:=ppPasteBitmap, DisplayAsIcon:=msoTrue, IconLabel:="BSC"
    End With
    With PRES.Slides(1).Shapes(1)
      .LockAspectRatio = msoFalse
      .Height = 510.12
      .Width = 702.75
      .Left = 8.5
      .Top = 8.5
      .Select
    End With
    With PRES.Windows(1).Selection.ShapeRange
      .Fill.Transparency = 0#
      .PictureFormat.Brightness = 0.7
      .PictureFormat.Contrast = 0.2
    End With
    PRES.Windows(1).Selection.Unselect
    Application.CutCopyMode = False
    End Sub
    Cordialement.

    PMO
    Patrick Morange

Discussions similaires

  1. Liaison Excel et Powerpoint Copier/Coller particulier
    Par latthieu dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 06/07/2011, 10h51
  2. Copiez coller d'Excel vers Powerpoint au milieu d'une zone de texte
    Par tenaka69 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 13/08/2007, 19h03
  3. Erreur lors de transfert excel vers Powerpoint
    Par hallucine dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 07/09/2006, 14h27
  4. [VBA-E]Excel vers powerpoint : copier/coller spécial
    Par illight dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/09/2006, 12h41
  5. [VBA Excel]probleme de copier/coller
    Par ogenki dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 31/01/2006, 14h22

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