Bonjour.
Je souhaite recopier la même zone de texte sur toute les diapos avec
VBA. Disons que la zone de texte initiale se trouve sur la première
diapo. Pouvez-vous m'indiquer la procédure pour le faire ?
Merci d'avance.
Daniel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour Daniel
Je souhaite recopier la même zone de texte sur toute les diapos avec VBA. Disons que la zone de texte initiale se trouve sur la première diapo. Pouvez-vous m'indiquer la procédure pour le faire ?
Voulez-vous le faire une fois seulement où souhaitez vous qu'en cas de modification du texte de la diapo 1, ça se propage sur les autres ?
-- A+
Bonjour Daniel
Je souhaite recopier la même zone de texte sur toute les diapos avec VBA. Disons que la
zone de texte initiale se trouve sur la première diapo. Pouvez-vous m'indiquer la
procédure pour le faire ?
Voulez-vous le faire une fois seulement où souhaitez vous qu'en cas de
modification du texte de la diapo 1, ça se propage sur les autres ?
Je souhaite recopier la même zone de texte sur toute les diapos avec VBA. Disons que la zone de texte initiale se trouve sur la première diapo. Pouvez-vous m'indiquer la procédure pour le faire ?
Voulez-vous le faire une fois seulement où souhaitez vous qu'en cas de modification du texte de la diapo 1, ça se propage sur les autres ?
-- A+
Daniel.C
Merci de votre réponse Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt le faire par macro depuis Excel où se trouvent les textes. (j'ai trouvé sur le net :
With ActivePresentation .Slides(1).Shapes(2).Copy For i = 2 To .Slides.Count .Slides(i).Select ActiveWindow.View.Paste Next i Ca fonctionne. Peut-on l'amélorer ?
Daniel
Bonjour Daniel
Je souhaite recopier la même zone de texte sur toute les diapos avec VBA. Disons que la zone de texte initiale se trouve sur la première diapo. Pouvez-vous m'indiquer la procédure pour le faire ?
Voulez-vous le faire une fois seulement où souhaitez vous qu'en cas de modification du texte de la diapo 1, ça se propage sur les autres ?
Merci de votre réponse
Non. Je compte modifier le texte à la main pour chaque textbox, ou
plutôt le faire par macro depuis Excel où se trouvent les textes.
(j'ai trouvé sur le net :
With ActivePresentation
.Slides(1).Shapes(2).Copy
For i = 2 To .Slides.Count
.Slides(i).Select
ActiveWindow.View.Paste
Next i
Ca fonctionne. Peut-on l'amélorer ?
Daniel
Bonjour Daniel
Je souhaite recopier la même zone de texte sur toute les diapos avec VBA.
Disons que la zone de texte initiale se trouve sur la première diapo.
Pouvez-vous m'indiquer la procédure pour le faire ?
Voulez-vous le faire une fois seulement où souhaitez vous qu'en cas de
modification du texte de la diapo 1, ça se propage sur les autres ?
Merci de votre réponse Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt le faire par macro depuis Excel où se trouvent les textes. (j'ai trouvé sur le net :
With ActivePresentation .Slides(1).Shapes(2).Copy For i = 2 To .Slides.Count .Slides(i).Select ActiveWindow.View.Paste Next i Ca fonctionne. Peut-on l'amélorer ?
Daniel
Bonjour Daniel
Je souhaite recopier la même zone de texte sur toute les diapos avec VBA. Disons que la zone de texte initiale se trouve sur la première diapo. Pouvez-vous m'indiquer la procédure pour le faire ?
Voulez-vous le faire une fois seulement où souhaitez vous qu'en cas de modification du texte de la diapo 1, ça se propage sur les autres ?
Geo
Re
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt le faire par macro depuis Excel où se trouvent les textes. (j'ai trouvé sur le net :
With ActivePresentation .Slides(1).Shapes(2).Copy For i = 2 To .Slides.Count .Slides(i).Select ActiveWindow.View.Paste Next i Ca fonctionne. Peut-on l'amélorer ?
Ca me parait bien. Qu'est-ce qui vous chagrine ? Bien sûr il faut prendre la bonne shape, mais ça, vous l'aviez vu.
-- A+
Re
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt le faire par
macro depuis Excel où se trouvent les textes.
(j'ai trouvé sur le net :
With ActivePresentation
.Slides(1).Shapes(2).Copy
For i = 2 To .Slides.Count
.Slides(i).Select
ActiveWindow.View.Paste
Next i
Ca fonctionne. Peut-on l'amélorer ?
Ca me parait bien.
Qu'est-ce qui vous chagrine ?
Bien sûr il faut prendre la bonne shape, mais ça, vous l'aviez vu.
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt le faire par macro depuis Excel où se trouvent les textes. (j'ai trouvé sur le net :
With ActivePresentation .Slides(1).Shapes(2).Copy For i = 2 To .Slides.Count .Slides(i).Select ActiveWindow.View.Paste Next i Ca fonctionne. Peut-on l'amélorer ?
Ca me parait bien. Qu'est-ce qui vous chagrine ? Bien sûr il faut prendre la bonne shape, mais ça, vous l'aviez vu.
-- A+
Daniel.C
> Re
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt le faire par macro depuis Excel où se trouvent les textes. (j'ai trouvé sur le net :
With ActivePresentation .Slides(1).Shapes(2).Copy For i = 2 To .Slides.Count .Slides(i).Select ActiveWindow.View.Paste Next i Ca fonctionne. Peut-on l'amélorer ?
Ca me parait bien. Qu'est-ce qui vous chagrine ? Bien sûr il faut prendre la bonne shape, mais ça, vous l'aviez vu.
Rien ne me chagrine. Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie. Pour le n° de shape, pas de problème.
> Re
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt
le faire par macro depuis Excel où se trouvent les textes.
(j'ai trouvé sur le net :
With ActivePresentation
.Slides(1).Shapes(2).Copy
For i = 2 To .Slides.Count
.Slides(i).Select
ActiveWindow.View.Paste
Next i
Ca fonctionne. Peut-on l'amélorer ?
Ca me parait bien.
Qu'est-ce qui vous chagrine ?
Bien sûr il faut prendre la bonne shape, mais ça, vous l'aviez vu.
Rien ne me chagrine. Je commence seulement VBA Powerpoint aujourd'hui,
donc je me méfie. Pour le n° de shape, pas de problème.
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Non. Je compte modifier le texte à la main pour chaque textbox, ou plutôt le faire par macro depuis Excel où se trouvent les textes. (j'ai trouvé sur le net :
With ActivePresentation .Slides(1).Shapes(2).Copy For i = 2 To .Slides.Count .Slides(i).Select ActiveWindow.View.Paste Next i Ca fonctionne. Peut-on l'amélorer ?
Ca me parait bien. Qu'est-ce qui vous chagrine ? Bien sûr il faut prendre la bonne shape, mais ça, vous l'aviez vu.
Rien ne me chagrine. Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie. Pour le n° de shape, pas de problème.
Geo
Re
Il me semble qu'on pourrait faire :
.Slides(i).shapes.paste
L'avantage du select et du view, c'est qu'on voit l'opération se dérouler à l'écran, ce qui est rassurant sur le bon déroulement de la macro. Vous connaissez aussi cela en vba Excel.
Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie.
Amha c'est le moins drôle des vba de Office et comble de malchance (!) MS a supprimé l'enregistreur de macros à partir de la version 2007.
-- A+
Re
Il me semble qu'on pourrait faire :
.Slides(i).shapes.paste
L'avantage du select et du view, c'est qu'on voit l'opération se
dérouler à l'écran, ce qui est rassurant sur le bon déroulement de la
macro.
Vous connaissez aussi cela en vba Excel.
Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie.
Amha c'est le moins drôle des vba de Office et comble de malchance (!)
MS a supprimé l'enregistreur de macros à partir de la version 2007.
L'avantage du select et du view, c'est qu'on voit l'opération se dérouler à l'écran, ce qui est rassurant sur le bon déroulement de la macro. Vous connaissez aussi cela en vba Excel.
Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie.
Amha c'est le moins drôle des vba de Office et comble de malchance (!) MS a supprimé l'enregistreur de macros à partir de la version 2007.
-- A+
Daniel.C
Merci encore.
Re
Il me semble qu'on pourrait faire :
.Slides(i).shapes.paste
L'avantage du select et du view, c'est qu'on voit l'opération se dérouler à l'écran, ce qui est rassurant sur le bon déroulement de la macro. Vous connaissez aussi cela en vba Excel.
Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie.
Amha c'est le moins drôle des vba de Office et comble de malchance (!) MS a supprimé l'enregistreur de macros à partir de la version 2007.
Merci encore.
Re
Il me semble qu'on pourrait faire :
.Slides(i).shapes.paste
L'avantage du select et du view, c'est qu'on voit l'opération se dérouler à
l'écran, ce qui est rassurant sur le bon déroulement de la macro.
Vous connaissez aussi cela en vba Excel.
Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie.
Amha c'est le moins drôle des vba de Office et comble de malchance (!) MS a
supprimé l'enregistreur de macros à partir de la version 2007.
L'avantage du select et du view, c'est qu'on voit l'opération se dérouler à l'écran, ce qui est rassurant sur le bon déroulement de la macro. Vous connaissez aussi cela en vba Excel.
Je commence seulement VBA Powerpoint aujourd'hui, donc je me méfie.
Amha c'est le moins drôle des vba de Office et comble de malchance (!) MS a supprimé l'enregistreur de macros à partir de la version 2007.