Discussion :

[kubinou]

Bonjour,

Je connais un peu plus VBA sous Excel et galère à m'en servir pour créer une présentation powerpoint interactive.
Mon souci est que je fais ce que je veux faire si je dessine au préalable mes TextBox.
Mais je voudrais, sur une slide, créer un nombre précis de TextBox suivant une information précédemment saisie.
Jusqu'ici, tout va bien.
Sauf que je n'arrive pas à rendre mes TextBox interactives... Chose nécessaire, puisque je veux traiter la donnée ainsi saisie.

Mon code est le suivant pour créer chaque TextBox

(TypoRens est un Shape, et Top est un Integer qui bouge)

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Set TypoRens = Sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 220, Top, 200, 100)
 With TypoRens
 .TextFrame.TextRange.Text = TextBoxName
 .Line.Visible = msoTrue
 .Enabled = True
 .Locked = False
 End With

Je précise que je voudrais fortement éviter de passer par un userform ou une InputBox qui sont très moches.
Juste une case à remplir, je récupère la donnée et basta, sans popup

Auriez-vous l'amabilité de m'apporter vos lumières, svp ?

Bien cordialement,

[kubinou]

Bon, j'ai compris mon premier problème avec les shape

Avec un contrôle, ça doit mieux aller, mais je bute sur l'objet définissant le contrôle (je suis toujours dans l'objectif d'un diaporama Powerpoint)
Mais le débogage bloque au rouge

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test_click()
    
  Dim Sld As Object
  Dim Boiboite As Control
      
  Set Sld = ActivePresentation.Slides
     
  Set Boiboite = Sld.Controls.Add("Forms.TextBox.1", "Typo 1", True)
    With Boiboite
        .Width = 150
        .Height = 25
        .Top = 100
        .Left = 100
    End With
End Sub