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