Για να αντιγάψετε το κείμενο από ένα πλαίσιο κειμένου σε ένα άλλο με το πάτημα του κουμπιού του ποντικιού εισάγετε το παρακάτω 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

 

Leave a Reply