TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

مسئله: اگر شما در حال نوشتن کدی درون یک افزودنی(add-ins) پاورپوینت هستید و نیاز به ساب روتین VBA، دیگری در ماکروهای یک پرزنتیشن داشته باشید- به این ترتیب شما باید بین دو پرزنتیشن ارتباط برقرار کنید.

راه حل:استفاده از دستور  Application.Run است. شما می توانیداز دستور  Application.Run استفاده کنید، برای ارتباط زیرروالهای و توابع در دو پرزنتیشن این راهکار توسط پاورپوینت ارائه شده است.

این زیرروال را در پرزنتیشن اول تعریف کنید:

Sub CallAnotherSubroutine()

    ' Array required to pass parameters
    Dim Params(1 To 2) As String

    Params(1) = "Hi, my name is Steve"
    Params(2)="Whatever else"
    ' and of course you could dim the array to hold more params if you wish

    ' Trigger a macro in a different open presentation; 
    ' For sanity's sake, you'll want to give the sub a unique name
    Application.Run "UniqueName", Params

End Sub

و این زیر روال را در پرزنتیشن دیگر تعریف کنید:

Public Sub UniqueName(params)
    MsgBox params(1)
    MsgBox params(2)
End Sub