Annonces & chants
Annonces
Feuille des annonces de cette semaine et de la semaine d'après
(horaires, intentions de messe, autres annonces)
Feuille de chant
Programme des chants
le programme des chants des prochaines célébrations
Outils pour la projection
Le site https://messetoolkit.fr est très utile pour générer un Power Point ou une feuille de messe en quelques clics. Vous pouvez retoucher ensuite ce ou ces supports. Le site offre la possibilité de paramétrer comme vous le souhaitez : couleur, insertion des parties de la messe ou des références bibliques voire même le texte des lectures, choix du credo utilisé, etc.
Pour la Messe de 18h à la Sainte Famille
L'écran étant de 32 pouces (la taille au-dessus est 43 pouces... pas d'entre-deux), il faut s'assurer que la taille des paroles soit d'au moins 54 points (taille power point ou word). 4 lignes au maximum en 54 pt.
Vous trouverez ci-dessous des fichiers en bon format et encore en-dessous une méthode efficace :
Comment augmenter facilement la taille de tous les textes d'un Power Point?
Les diapositives du support généré par messetoolkit sont constituées d'un cadre de texte, parfois deux lorsqu'il y a un titre.
Comment faire que tous ces cadres de texte voient la police augmentée à 54 pt?
Comment le faire rapidement ? A la main, il faut pour chaque diapositive sélectionner le cadre de texte et appliquer l'augmentation de la police.
Pour ceux qui voudraient ne pas perdre de temps, et qui sont un minimum à l'aise avec l'informatique, il est possible de recourir à Mistral, ChatGPT ou autre IA de vous expliquer la route à suivre, pas à pas. Voici le résultat de ma requête (au 16 février 2025), sur mistral.ai :
"Pour créer un programme VBA qui augmente la taille de police de tous les objets texte à 54 points dans toutes les diapositives d'une présentation PowerPoint, tu peux utiliser le code suivant. Ce code parcourt chaque diapositive et chaque forme de texte pour appliquer la taille de police souhaitée."
Sub AugmenterTailleTexte()
Dim pptSlide As Slide
Dim pptShape As Shape
' Parcourir chaque diapositive dans la présentation active
For Each pptSlide In ActivePresentation.Slides
' Parcourir chaque forme dans la diapositive
For Each pptShape In pptSlide.Shapes
' Vérifier si la forme a du texte
If pptShape.HasTextFrame Then
' Vérifier si le cadre de texte a du texte
If pptShape.TextFrame.HasText Then
' Définir la taille de la police à 54 points
pptShape.TextFrame.TextRange.Font.Size = 54
End If
End If
Next pptShape
Next pptSlide
End Sub
Instructions pour utiliser ce code :
Ouvre PowerPoint et appuie sur Alt + F11 pour ouvrir l'éditeur VBA.
Dans l'éditeur VBA, insère un nouveau module en cliquant sur Insertion > Module.
Copie et colle le code ci-dessus dans le module.
Ferme l'éditeur VBA et retourne dans PowerPoint.
Exécute le macro en appuyant sur Alt + F8, sélectionne AugmenterTailleTexte, puis clique sur Exécuter.
Ce code va parcourir toutes les diapositives et augmenter la taille de la police de tous les objets texte à 54 points. Il n'y aura ainsi plus qu'à arranger les diapositives pour créer deux diapo au lieu d'une lorsque nécessaire.