Astuces Excel
  1. Astuces Excel
  3. Code VBA pour convertir (ou faire dupliquer) des files Excel dans un dossier en présentations PowerPoint respectives
Intereting Posts
export de wpf datagrid dans le file excel csv excel Exporter vers excel dans TFS 2012, code d'erreur: TF400422 Quelle est la différence entre le module et une feuille de module? Excel – renvoie une autre feuille de calcul par une string dans une cellule random, et reference une valeur dans sa rangée donnée Copier datatables du file text dans le classur Excel existant à l'aide de PowerShell Enregistrer Excel généré avec axlsx_rails dans un dossier de mon projet En essayant de résumer les instances multiples d'un numéro de count dans un mois Erreur de formule Excel Evaluate Code de comparaison VBA Comment saisir des valeurs min / max et avoir Excel générer des cellules pour chaque nombre dans la plage Formage conditionnel Excel: Comparaison des colonnes de données? Ligne de remplissage d'Excel en fonction de la search Problème de taille de file. alors que poi lit l'écriture Copier-coller VBA spécial ne fonctionne pas Excel 2013 – support de précision pour les grands nombres?

Code VBA pour convertir (ou faire dupliquer) des files Excel dans un dossier en présentations PowerPoint respectives

Je suis assez nouveau pour Excel, et j'essaie d'écrire une macro pour convertir plusieurs feuilles de calcul Excel sur plusieurs diapositives PowerPoint. Jusqu'à présent, j'ai trouvé un moyen de créer des diapositives individuelles à partir de feuilles individuelles Excel à partir d'un site Web: 

Option Explicit Sub ExcelRangeToPowerPoint() Dim rng As Excel.Range Dim PowerPointApp As PowerPoint.Application Dim myPresentation As PowerPoint.Presentation Dim mySlide As PowerPoint.Slide Dim myShapeRange As PowerPoint.Shape 'Copy Range from Excel Set rng = ThisWorkbook.ActiveSheet.Range("A1:G17") 'Create an Instance of PowerPoint On Error Resume Next 'Is PowerPoint already opened? Set PowerPointApp = GetObject(class:="PowerPoint.Application") 'Clear the error between errors Err.Clear 'If PowerPoint is not already open then open PowerPoint If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application") 'Handle if the PowerPoint Application is not found If Err.Number = 429 Then MsgBox "PowerPoint could not be found, aborting." Exit Sub End If On Error GoTo 0 'Make PowerPoint Visible and Active PowerPointApp.Visible = True PowerPointApp.Activate 'Create a New Presentation Set myPresentation = PowerPointApp.Presentations.Add 'Add a slide to the Presentation Set mySlide = myPresentation.Slides.Add(1, ppLayoutTitleOnly) 'Copy Excel Range rng.Copy 'Paste to PowerPoint and position mySlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile Set myShapeRange = mySlide.Shapes(mySlide.Shapes.Count) 'Set position: myShapeRange.Left = 150 myShapeRange.Top = 186 'Clear The Clipboard Application.CutCopyMode = False End Sub

J'essaye juste de comprendre, y a-t-il une macro qui peut boucler un dossier / directory donné et convertir tous les files Excel en présentations PowerPoint?

Est-ce que vous comprenez le code? Il créera une diapositive powerpoint unique à partir d'une seule gamme de cellules. Que faire si votre file de classur contient beaucoup de feuilles? Que faire si les gammes sont différentes sur chaque feuille.

Votre code devra répondre à cela.

Donc, vous écririez un code qui

  1. Boucles sur tous les files Excel trouvés dans un dossier
  2. boucle toutes les feuilles dans le file
  3. ajoute une nouvelle diapositive sur un file Powerpoint pour la feuille actuelle
  4. trouve la plage de la feuille actuelle et ajoute la scope à la diapositive

Êtes-vous en désespoir pour automatiser cela? Si vous avez seulement besoin de le faire une fois, vous devriez peut-être le faire manuellement? Selon le nombre de files et la fréquence à laquelle vous l'avez bien sûr.

Pour répondre à votre question, consultez ici qui utilise dir pour find des files dans un dossier … Mais il faut beaucoup plus de code pour le faire!

Il peut y avoir un outil disponible pour le faire sur le Web … par exemple, ici, je n'ai pas poursuivi, mais c'est un besoin commun.