Για να αντιγάψετε το κείμενο από ένα πλαίσιο κειμένου σε ένα άλλο με το πάτημα του κουμπιού του ποντικιού εισάγετε το παρακάτω module
Sub CopyText()
Dim sourceTextBox As Shape
Dim destinationTextBox As Shape
Set sourceTextBox = ActivePresentation.Slides(1).Shapes(“TextBox1”)
Set destinationTextBox = ActivePresentation.Slides(1).Shapes(“TextBox2”)
destinationTextBox.TextFrame.TextRange.Text = sourceTextBox.TextFrame.TextRange.Text
End Sub