Cher Forum !
je tourne en rond et n'arrive plus à trouver la bonne syntaxe dans ma macro
j'ai un tableau, je voudrais que la couleur de la police de tout le tableau soit = blanc
comment mettre cette propriété au niveau du tableau ?
je l'ai mise au niveau de la cellule mais cela ne fonctionne pas
il faut dire que ce tableau est créé dans POWERPOINT depuis la macro excel, c'est pourquoi je dois mettre les propriétés dans VBA :
voici le morceau de code qui définit les propriétés :
With ObjShTableDes.Table
.Columns(1).Width = 650
'On Rajoute les données de la description de la séquence
'on aligne la cellule "justifié" pour recevoir le texte, on détermine la police, la taille de police et la couleur
.Cell(1, 1).Shape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignJustify
.Cell(1, 1).Shape.TextFrame.TextRange.Font.Name = "Brush Script Std"
.Cell(1, 1).Shape.TextFrame.TextRange.Font.Size = 18
.Cell(1, 1).Shape.TextFrame.TextRange.Font.Color = 2
'On remplit la cellule avec les données
.Cell(1, 1).Shape.TextFrame.TextRange.Text = Tablo(i, 23) 'description de la séquence
End With
====
je sais que je fais une erreur quelque part, mais n'arrive pas à voir où la syntaxe est fausse
d'avance merci pour vos éclairages
je tourne en rond et n'arrive plus à trouver la bonne syntaxe dans ma macro
j'ai un tableau, je voudrais que la couleur de la police de tout le tableau soit = blanc
comment mettre cette propriété au niveau du tableau ?
je l'ai mise au niveau de la cellule mais cela ne fonctionne pas
il faut dire que ce tableau est créé dans POWERPOINT depuis la macro excel, c'est pourquoi je dois mettre les propriétés dans VBA :
voici le morceau de code qui définit les propriétés :
With ObjShTableDes.Table
.Columns(1).Width = 650
'On Rajoute les données de la description de la séquence
'on aligne la cellule "justifié" pour recevoir le texte, on détermine la police, la taille de police et la couleur
.Cell(1, 1).Shape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignJustify
.Cell(1, 1).Shape.TextFrame.TextRange.Font.Name = "Brush Script Std"
.Cell(1, 1).Shape.TextFrame.TextRange.Font.Size = 18
.Cell(1, 1).Shape.TextFrame.TextRange.Font.Color = 2
'On remplit la cellule avec les données
.Cell(1, 1).Shape.TextFrame.TextRange.Text = Tablo(i, 23) 'description de la séquence
End With
====
je sais que je fais une erreur quelque part, mais n'arrive pas à voir où la syntaxe est fausse
d'avance merci pour vos éclairages