Problème d'affichage power point dans feuille excel avec ActiveSheet.OLEObjects

  • Initiateur de la discussion Initiateur de la discussion templar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

templar

XLDnaute Nouveau
Bonjour,

j'ai enregistré une macro me permettant d'afficher un powerpoint dans une feuille excel. Mon problème est que la premiere fois que je fais appel à ma macro, le tableau n'est pas dimensionné correctement. La deuxieme fois que e click sur le bouton, j'obtiens mon powerpoint correctement dimensioné.

ais je oublié des parametres?

merci

Sub Choix_diapo()
'
' Choix_diapo Macro
' Macro enregistrée le 02/02/2010 par astab
'
Dim zone As Variant
Dim etage As Variant

' Test de la cellule concernant la zone
Call masquer
DoEvents

etage = Cells(3, 4).Value
zone = Cells(3, 3).Value

'recherche des plans dans les dossiers

Dim oFS As Office.FileSearch
Set oFS = Application.FileSearch
With oFS
.NewSearch
.FileType = msoFileTypeAllFiles
.MatchTextExactly = True
.SearchSubFolders = True
.Filename = zone & " " & etage
.LookIn = ThisWorkbook.Path & "\plan de signaletique finaux"
.Execute

File = .FoundFiles(1)

End With

' on reprend les parametre définis précédemment pour faire afficher la carte correspondante à la recherche
Range("B5").Select
ActiveSheet.OLEObjects.Add(Filename:=File _
, Link:=True, DisplayAsIcon:=False).Select
Selection.ShapeRange.ScaleWidth 2.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.41, msoFalse, msoScaleFromTopLeft
' on affiche le tableau correspondant avec la recherche
Call filtre_tableau
DoEvents
Call tablistes
DoEvents


End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour