Bonjour à vous tous,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une macro
d'impression permettant d'imprimer la page en cours
Sub Imprimer()
With ActivePresentation.PrintOptions
.RangeType = ppPrintCurrent
.OutputType = ppPrintOutputSlides
.FrameSlides = msoTrue
End With
ActivePresentation.PrintOut
End Sub
Bizzarement la macro fonctionne si dans l'ordre :
1 - j'ouvre PPOINT
2 - j'ouvre la présentation
3 - je lance le diaporama
4 - je lance la macro
et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre :
1 - je lance le PPS à partir du disque
2 - je lance la macro
Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la diapo
pendant la projection et l'intégrer dans la macro
Merci d'avance
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
Tisane
Bonjour Cervolent,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une macro d'impression permettant d'imprimer la page en cours [...]
Avec ta macro, j'imprime toujours la diapo 1. Voici la "mienne" :
Sub Imprimer() Dim DiaCourante As Long DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange With .Ranges .ClearAll .Add Start:=DiaCourante, End:=DiaCourante End With .OutputType = ppPrintOutputSlides End With ActivePresentation.PrintOut End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir présente sur toutes les diapos. Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible). Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint. -- Tisane
Sub Imprimer() With ActivePresentation.PrintOptions .RangeType = ppPrintCurrent .OutputType = ppPrintOutputSlides .FrameSlides = msoTrue End With ActivePresentation.PrintOut End Sub Bizzarement la macro fonctionne si dans l'ordre : 1 - j'ouvre PPOINT 2 - j'ouvre la présentation 3 - je lance le diaporama 4 - je lance la macro et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre : 1 - je lance le PPS à partir du disque 2 - je lance la macro Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la diapo pendant la projection et l'intégrer dans la macro Merci d'avance
Bonjour Cervolent,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une
macro d'impression permettant d'imprimer la page en cours
[...]
Avec ta macro, j'imprime toujours la diapo 1.
Voici la "mienne" :
Sub Imprimer()
Dim DiaCourante As Long
DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=DiaCourante, End:=DiaCourante
End With
.OutputType = ppPrintOutputSlides
End With
ActivePresentation.PrintOut
End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir
présente sur toutes les diapos.
Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible).
Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint.
--
Tisane
Sub Imprimer()
With ActivePresentation.PrintOptions
.RangeType = ppPrintCurrent
.OutputType = ppPrintOutputSlides
.FrameSlides = msoTrue
End With
ActivePresentation.PrintOut
End Sub
Bizzarement la macro fonctionne si dans l'ordre :
1 - j'ouvre PPOINT
2 - j'ouvre la présentation
3 - je lance le diaporama
4 - je lance la macro
et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre :
1 - je lance le PPS à partir du disque
2 - je lance la macro
Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la
diapo pendant la projection et l'intégrer dans la macro
Merci d'avance
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une macro d'impression permettant d'imprimer la page en cours [...]
Avec ta macro, j'imprime toujours la diapo 1. Voici la "mienne" :
Sub Imprimer() Dim DiaCourante As Long DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange With .Ranges .ClearAll .Add Start:=DiaCourante, End:=DiaCourante End With .OutputType = ppPrintOutputSlides End With ActivePresentation.PrintOut End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir présente sur toutes les diapos. Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible). Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint. -- Tisane
Sub Imprimer() With ActivePresentation.PrintOptions .RangeType = ppPrintCurrent .OutputType = ppPrintOutputSlides .FrameSlides = msoTrue End With ActivePresentation.PrintOut End Sub Bizzarement la macro fonctionne si dans l'ordre : 1 - j'ouvre PPOINT 2 - j'ouvre la présentation 3 - je lance le diaporama 4 - je lance la macro et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre : 1 - je lance le PPS à partir du disque 2 - je lance la macro Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la diapo pendant la projection et l'intégrer dans la macro Merci d'avance
Cervolent
Super génial C exactement ça !
Bonjour Cervolent,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une macro d'impression permettant d'imprimer la page en cours [...]
Avec ta macro, j'imprime toujours la diapo 1. Voici la "mienne" :
Sub Imprimer() Dim DiaCourante As Long DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange With .Ranges .ClearAll .Add Start:=DiaCourante, End:=DiaCourante End With .OutputType = ppPrintOutputSlides End With ActivePresentation.PrintOut End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir présente sur toutes les diapos. Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible). Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint. -- Tisane
Sub Imprimer() With ActivePresentation.PrintOptions .RangeType = ppPrintCurrent .OutputType = ppPrintOutputSlides .FrameSlides = msoTrue End With ActivePresentation.PrintOut End Sub Bizzarement la macro fonctionne si dans l'ordre : 1 - j'ouvre PPOINT 2 - j'ouvre la présentation 3 - je lance le diaporama 4 - je lance la macro et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre : 1 - je lance le PPS à partir du disque 2 - je lance la macro Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la diapo pendant la projection et l'intégrer dans la macro Merci d'avance
Super génial C exactement ça !
Bonjour Cervolent,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une
macro d'impression permettant d'imprimer la page en cours
[...]
Avec ta macro, j'imprime toujours la diapo 1.
Voici la "mienne" :
Sub Imprimer()
Dim DiaCourante As Long
DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=DiaCourante, End:=DiaCourante
End With
.OutputType = ppPrintOutputSlides
End With
ActivePresentation.PrintOut
End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir
présente sur toutes les diapos.
Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible).
Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint.
--
Tisane
Sub Imprimer()
With ActivePresentation.PrintOptions
.RangeType = ppPrintCurrent
.OutputType = ppPrintOutputSlides
.FrameSlides = msoTrue
End With
ActivePresentation.PrintOut
End Sub
Bizzarement la macro fonctionne si dans l'ordre :
1 - j'ouvre PPOINT
2 - j'ouvre la présentation
3 - je lance le diaporama
4 - je lance la macro
et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre :
1 - je lance le PPS à partir du disque
2 - je lance la macro
Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la
diapo pendant la projection et l'intégrer dans la macro
Merci d'avance
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une macro d'impression permettant d'imprimer la page en cours [...]
Avec ta macro, j'imprime toujours la diapo 1. Voici la "mienne" :
Sub Imprimer() Dim DiaCourante As Long DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange With .Ranges .ClearAll .Add Start:=DiaCourante, End:=DiaCourante End With .OutputType = ppPrintOutputSlides End With ActivePresentation.PrintOut End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir présente sur toutes les diapos. Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible). Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint. -- Tisane
Sub Imprimer() With ActivePresentation.PrintOptions .RangeType = ppPrintCurrent .OutputType = ppPrintOutputSlides .FrameSlides = msoTrue End With ActivePresentation.PrintOut End Sub Bizzarement la macro fonctionne si dans l'ordre : 1 - j'ouvre PPOINT 2 - j'ouvre la présentation 3 - je lance le diaporama 4 - je lance la macro et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre : 1 - je lance le PPS à partir du disque 2 - je lance la macro Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la diapo pendant la projection et l'intégrer dans la macro Merci d'avance
Cervolent
C exactement ce qui me fallait ... Super sympa !!!
Bonjour Cervolent,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une macro d'impression permettant d'imprimer la page en cours [...]
Avec ta macro, j'imprime toujours la diapo 1. Voici la "mienne" :
Sub Imprimer() Dim DiaCourante As Long DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange With .Ranges .ClearAll .Add Start:=DiaCourante, End:=DiaCourante End With .OutputType = ppPrintOutputSlides End With ActivePresentation.PrintOut End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir présente sur toutes les diapos. Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible). Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint. -- Tisane
Sub Imprimer() With ActivePresentation.PrintOptions .RangeType = ppPrintCurrent .OutputType = ppPrintOutputSlides .FrameSlides = msoTrue End With ActivePresentation.PrintOut End Sub Bizzarement la macro fonctionne si dans l'ordre : 1 - j'ouvre PPOINT 2 - j'ouvre la présentation 3 - je lance le diaporama 4 - je lance la macro et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre : 1 - je lance le PPS à partir du disque 2 - je lance la macro Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la diapo pendant la projection et l'intégrer dans la macro Merci d'avance
C exactement ce qui me fallait ... Super sympa !!!
Bonjour Cervolent,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une
macro d'impression permettant d'imprimer la page en cours
[...]
Avec ta macro, j'imprime toujours la diapo 1.
Voici la "mienne" :
Sub Imprimer()
Dim DiaCourante As Long
DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=DiaCourante, End:=DiaCourante
End With
.OutputType = ppPrintOutputSlides
End With
ActivePresentation.PrintOut
End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir
présente sur toutes les diapos.
Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible).
Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint.
--
Tisane
Sub Imprimer()
With ActivePresentation.PrintOptions
.RangeType = ppPrintCurrent
.OutputType = ppPrintOutputSlides
.FrameSlides = msoTrue
End With
ActivePresentation.PrintOut
End Sub
Bizzarement la macro fonctionne si dans l'ordre :
1 - j'ouvre PPOINT
2 - j'ouvre la présentation
3 - je lance le diaporama
4 - je lance la macro
et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre :
1 - je lance le PPS à partir du disque
2 - je lance la macro
Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la
diapo pendant la projection et l'intégrer dans la macro
Merci d'avance
C exactement ce qui me fallait ... Super sympa !!!
Bonjour Cervolent,
J'ai comme version PPOINT 2002. J'ai créé un .PPS qui contient une macro d'impression permettant d'imprimer la page en cours [...]
Avec ta macro, j'imprime toujours la diapo 1. Voici la "mienne" :
Sub Imprimer() Dim DiaCourante As Long DiaCourante = SlideShowWindows(1).View.Slide.SlideIndex With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange With .Ranges .ClearAll .Add Start:=DiaCourante, End:=DiaCourante End With .OutputType = ppPrintOutputSlides End With ActivePresentation.PrintOut End Sub
Tu peux l'associer à un bouton placé dans le masque de diapo afin de l'avoir présente sur toutes les diapos. Et elle fonctionne en pps (niveau de sécurité des macros moyen ou faible). Nota : les macros ne fonctionnent pas avec la visionneuse de PowerPoint. -- Tisane
Sub Imprimer() With ActivePresentation.PrintOptions .RangeType = ppPrintCurrent .OutputType = ppPrintOutputSlides .FrameSlides = msoTrue End With ActivePresentation.PrintOut End Sub Bizzarement la macro fonctionne si dans l'ordre : 1 - j'ouvre PPOINT 2 - j'ouvre la présentation 3 - je lance le diaporama 4 - je lance la macro et ça marche ! (mais y a plus d'intéret du PPS)
Elle ne marche pas quand, dans l'ordre : 1 - je lance le PPS à partir du disque 2 - je lance la macro Pouvez-vous m'aider S'il vous plait. Peut-on récupérer le N° de la diapo pendant la projection et l'intégrer dans la macro Merci d'avance
