I would like to populate TextBox ex. "Rectangle1" based on what is selected in "Combobox1"


I have separate Userform where the Combobox and TextBox is.


Private Sub Combobox1_DropButtonClick()
Dim sh As Shape
Set sh = ActivePresentation.Slides(1).Shapes("Rectangle1")
sh.Name = "Rectangle1"
If Combobox.Listcount = 0 Then
With Combobox1 
.AddItem " ", 0
.Additem "Test", 1
.Additem "Test2", 2
End With
End If
End Sub


Private Sub TextBox1_Change()
Dim sh As Shape
Set sh = ActivePresentation.Slides(1).Shapes("Rectangle2")
sh.Name = "Rectangle2"
End Sub


Private Sub CommandButton1_Click()
Dim Value As Shape
Value = TextBox1.Text
Activepresentation.Slides(1).Shapes ("Rectangle2")
sh.name = "Rectangle2"
End Sub

Thank You