La modération vous a écrit:Sujet déplacé
Merci de lire le descriptif de chaque section avant de poster la prochaine fois.
Par programme est inutile en section Macros.
Bonjour à tous,
Dans Impress, le code pour la création d'une nouvelle diapo et l'application d'un masque ne pose pas de problème, en revanche je ne trouve pas comment choisir le type de mise en page correspondant au menu Diapo/Mise en page de diapo/Vierge; 1 titre... où il est possible de choisir parmi 12 possibilités
Merci d'avance si quelqu'un sait quelle propriété, méthode, action, dispatcher le permet
Cordialement
La modération vous a écrit: Mettez vos codes entre balises [code][ /code], vous rendrez la lecture plus facile.
Pour ce faire, sélectionnez le code et cliquez sur le bouton "Code" en haut à gauche de votre message.
Exemple, voir aussi fichier joint
Sub NouvelleDiapo(oev as object)
Dim choixMasque as integer, ChoixMiseEnPage as integer
Dim monDocument As Object, lesPages As Object
Dim unePage As Object, LesMasques as object, Monmasque as object
Dim idx As Long
ChoixMasque=oev.source.model.parent.getByName("ListeMasques").selectedItems(0)
ChoixMiseEnPage=oev.source.model.parent.getByName("MiseEnPage").selectedItems(0)
monDocument = ThisComponent
lesPages = monDocument.DrawPages
' insérer en fin de document
unePage=LesPages(lesPages.count-1)
idx=unePage.Number
unePage = lesPages.insertNewByIndex(idx)
'appliquation du masque selectionné
LesMasques= monDocument.MasterPages
idx = getIndexByName(LesMasques, "Masque" & ChoixMasque+1)
MonMasque = lesMasques(idx)
unePage.MasterPage = MonMasque
'Choix de la mise en page parmi 12 possibilités de base de vierge à titre + 6 contenus
'comment faire
'?????????????????
end sub
