For others, also posted a few days ago at http://www.mrexcel.com/forum/excel-q...row-range.html
for monzat/florrian
some light reading: http://www.excelguru.ca/content.php?184
Try:
Private Sub CommandButton1_Click()
Sheets("Feuil2").Visible = True
' Application.Goto Reference:="Nomsauv"
Nomsauv = Selection.Offset(0, 0).Value
'Opening Ppt Document
Set appPowerPointApplication = New PowerPoint.Application
bPowerPointisOpened = True
appPowerPointApplication.Visible = True
Set myPPT = appPowerPointApplication.Presentations.Open(Filename:=ThisWorkbook.Path & "\XX.ppt", ReadOnly:=True)
bPowerPointPresentationsIsOpened = True
Dim oSlide As Slide
Dim oShape ' As Shape
For Each oSlide In myPPT.Slides
For Each oShape In oSlide.Shapes
If oShape.Type >= 7 And oShape.Type <= 12 Then
oShape.LinkFormat.BreakLink
End If
Next oShape
Next oSlide
Sheets("Feuil2").Visible = False
End Sub
but note that you've opened the presentation as read-only so you can only save it under another name.