Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 10:25:45

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

ENREGISTRER UN LISTVIEW POUR TOUJOURS par yabross

RE : FONCTION REPLACE par ghuysmans99

FONCTION REPLACE par ddove53

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par Renfield

RE : FONCTION COMBOBOX par shenkool

+ de logiciels à télécharger

1 465 045 membres
93 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 069 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRÉER UNE PRÉSENTATION POWERPOINT DEPUIS UN CLASSEUR EXCEL

Information sur la source

Catégorie :VBA Niveau : Initié Date de création : 12/10/2004 Vu / téléchargé: 9 720 / 1 770

Auteur : JeffLC

Site perso

Ecrire un message privé

Note :

7,67 / 10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Les macros du classeur Excel du Zip permettent de scanner un fichier Excel suivant une certaine normalisation d'en extraire les données et de les mettre en forme au sein d'une nouvelle présentation PowerPoint. Chaque feuille du classeur correspond à une diapositive dans la présentation créée. Il existe deux macros génériques : Insert_Shape ( qui permet d’insérer une forme texte dans PowerPoint) et Format_Shape (qui permet de mettre en forme une partie du texte d’une forme (police, taille des caractères, couleurs des caractères, gras, soulignement).

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

PontPowerPoint.xls102 912 octets

Télécharger le zip

Sources du même auteur

RÉCUPERER DE CHEMIN DE FICHIERS ET STOCKAGE DANS UNE BASE AC...

Toutes les sources de JeffLC

Sources de la même categorie

EXPORT TABLEAU EXCEL EN BBCODE par nikovb

AFFICHEUR DE LISTE AVEC VALIDATION (EXCEL) par AC045364

REDIMENSIONNER IMAGE par Le Pivert

RENOMMER SÉRIE D'IMAGE DIRECTEMENT AVEC VBA EXCEL (CLASSEMEN... par davidparison

STOCK_MAINTENANCE par awend

Toutes les sources de la catégorie VBA

Commentaires et avis

Commentaire de The_bigboss le 13/10/2004 12:07:21

Bonjour, j'ai excel version 2003 et il ne veut pas me l'ouvrir car il faudrait que ta macro soit signée numériquement !

Commentaire de smarties38 le 21/02/2007 16:25:26

excellent ce code!!!

Commentaire de patsonk le 19/04/2007 12:33:02

c est top code. merci de l avoir mis a disposition

Commentaire de njfloy006 le 18/06/2007 18:00:58

Bonjour, en effet ce code est très très bien et super complet, mais existerai-t-il une version plus simple qui consisterai juste à importer une petite plage de donnée sous excel pour la coller sur ppt?
Si je demande cela, c'est parce que c'est exactement le programme qu'il me faut, mais le "hic", c'est que je suis novice sous VBA, et dans ce code, malgré mes recherches il y'a certaines fonctions que je ne comprends pas.
Merci.

Commentaire de vegeta350 le 03/06/2008 17:29:40

Bonjour, Je suis comme NJFLOY006, je recherche un code qui pourrait me permettre d'exporter u tableau contenue sur excel dans powerpoint mais suivant la même pésentation.
C'est faisable ??

Commentaire de Le Pivert le 28/11/2008 15:51:28

Bonjour, cela arrive un peu tard, mais mieux vaut tard que jamais.
Mettez ce qui suit dans un module.
'Allez dans Outils-References et cochez: Microsoft PowerPoint 11.0 Object Library
'Remplissez la cellule A1 et ajoutez un graphique dans la feuille1
'Ensuite vous appelez "NouvellePresentation"
Sub NouvellePresentation()

Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim NbShpe As Integer

Dim PptApp As Variant
Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add

With PptDoc

'--- Ajoute un Slide
.Slides.Add Index:=1, Layout:=ppLayoutBlank
'Crée une zone de texte (AddLabel)
Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=150, Height:=60)
'insère la valeur de la Cellule A1 dans une zone de texte
Sh.TextFrame.TextRange.Text = Range("A1")
'Modifie la couleur du texte
Sh.TextFrame.TextRange.Font.Color = RGB(255, 100, 255)

'--- Ajoute un nouveau slide et le positionner en 2eme position
Set Diapo = .Slides.Add(Index:=2, Layout:=ppLayoutBlank)

'copie le 1er graphique contenu dans la feuille Excel active
ActiveSheet.ChartObjects(1).Copy
'collage dans la 2eme diapositive
Diapo.Shapes.Paste

'Compte le nombre de shapes dans la diapositive:
'le dernier objet inséré correspond à l'index le plus élevé
NbShpe = Diapo.Shapes.Count

'Renomme et met en forme l'objet collé
With Diapo.Shapes(NbShpe)
.Name = "monGraph" 'personnalise le nom
.Left = 150 'définit la position horizontale dans le slide
.Top = 100 'définit la position verticale dans le slide
.Height = 300 'hauteur
.Width = 400 'largeur
End With

'--- Modifie la couleur de fond dans les différents Slides
Set Cs1 = .ColorSchemes(3)
Cs1.Colors(ppBackground).RGB = RGB(225, 233, 200)
.SlideMaster.ColorScheme = Cs1
End With

'Sauvegarde la présentation
'dans le meme répertoire que le classeur excel contenant la macro.
PptDoc.SaveAs FileName:=ThisWorkbook.Path & "\" & "NouvellePresentation.ppt"
'ferme la presentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit

MsgBox "Opération terminée."
End Sub