powerpointte visual basic

[osmanfenerli1907]

merhaba
ben powerpointin 1.sayfasındaki text1 deki sayının text2 ile çarpımını 2.sayfadaki text2 ye nasıl sonuçlandırabilirim ?
şimdiden teşekkürler

 

[janveljan]

Bu şekildeki kodlarla değerleri değiştirebilirsiniz, ancak bu kodları çalıştırmak için bir olay varmı bilemiyorum, ayrıca tırnak içindeki yerlere ya şekillerin isimlerini doğru olarak girmeniz lazım veya o sayfadaki index sırasını yazmanız lazım.

Sub Makro3()
    a = ActiveWindow.Presentation.Slides(1).Shapes("Rectangle 2").TextFrame.TextRange.Text
    b = ActiveWindow.Presentation.Slides(1).Shapes("Rectangle 3").TextFrame.TextRange.Text
    ActiveWindow.Presentation.Slides(2).Shapes("Rectangle 2").TextFrame.TextRange.Text = a * b
End Sub