TPE

Tavvafi@gmail.com

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

ممکن است هنگام باز کردن یک پرزنتشین با این پیام روبرو شوید:

کنترلرها که به Active-X  معروف هستند و به آنها OLE هم می گویند. می توانند در اسلایدها استفاده شوند.

این کنترلر ها می توانند این موارد باشند:

• Label
• Text Box
• Spin Button
• Command Button
• Image
• Scroll Bar
• Check Box
• Option Button
• Combo Box
• List Box
• Toggle Button

این موارد را می توان از طریق ریبون Developer به اسلاید اضافه کرد.

کد زیر به شما کمک می کند این کنترلرها را در پرزنتیشن خود پیدا کنید.

این کد از طریق برگرداندن  "Program ID"، به شما ایده می دهد تا وضعیت را بهتر مدیریت کنید.

Sub ActiveXMarksTheSpot()

Dim oSh as Shape
Dim oSl as Slide

For Each oSl in ActivePresentation.Slides
For Each oSh in oSl.Shapes

If oSh.Type = msoOLEControlObject Then

MsgBox "Slide#: " & oSl.SlideIndex & VBCrLf _
    & "Shape: " & oSh.Name & VBCrLf )
    & oSh.OLEFormat.ProgID 

End If
Next   ' Shape
Next  ' Slide
End Sub