Bonjour à tous,
Je suis en train de créer un Userform qui permet d'exporter des données excel vers un slide powerpoint.
Mes textboxes vont donc renseigner des shapes dans le slide.
Mon code pour renseigner les shapes est le suivant:
With .Slides(1).Shapes("Text Box 1").TextFrame.TextRange
.Text = TextBox12 & vbCrLf & Box13 & vbCrLf & Box14 & vbCrLf & Box15
With .Characters(1, Len(TextBox12) + Len(TextBox13) + 1).Font
.Size = 10
.Bold = True
End With
With .Characters(Len(TextBox12) + Len(TextBox13) + 1, Len(TextBox14) + len(TextBox15) + 1).Font
.Size = 9
.Bold = False
End With
With .Paragraphs(2)
.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
End With
With .Paragraphs(3)
.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
End With
With .Paragraphs(4)
.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
End With
Ma question : comment faire en sorte que la macro ne saute pas de ligne (vbCrLf) si la textbox précédente n'est pas renseigné. Dans ce cas est-il possible d'assigner à une TextBox plutôt qu'un numéro de paragraphe, le format du paragraphe : en effet je n'aurais pas le même nombre de textbox renseigné à chaque export et donc le même nombre de paragraphes.
J'espère avoir été clair.
Merci beaucoup d'avance pour votre aide.
Olivier
Je suis en train de créer un Userform qui permet d'exporter des données excel vers un slide powerpoint.
Mes textboxes vont donc renseigner des shapes dans le slide.
Mon code pour renseigner les shapes est le suivant:
With .Slides(1).Shapes("Text Box 1").TextFrame.TextRange
.Text = TextBox12 & vbCrLf & Box13 & vbCrLf & Box14 & vbCrLf & Box15
With .Characters(1, Len(TextBox12) + Len(TextBox13) + 1).Font
.Size = 10
.Bold = True
End With
With .Characters(Len(TextBox12) + Len(TextBox13) + 1, Len(TextBox14) + len(TextBox15) + 1).Font
.Size = 9
.Bold = False
End With
With .Paragraphs(2)
.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
End With
With .Paragraphs(3)
.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
End With
With .Paragraphs(4)
.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
End With
Ma question : comment faire en sorte que la macro ne saute pas de ligne (vbCrLf) si la textbox précédente n'est pas renseigné. Dans ce cas est-il possible d'assigner à une TextBox plutôt qu'un numéro de paragraphe, le format du paragraphe : en effet je n'aurais pas le même nombre de textbox renseigné à chaque export et donc le même nombre de paragraphes.
J'espère avoir été clair.
Merci beaucoup d'avance pour votre aide.
Olivier