Βοήθεια για μακροεντολή σε VBA!

[Armodios]

Παιδιά γειά σας και συγχαρητήρια για το forum!!!

Λοιπον...με τη βοήθεια φίλων ,σημειώσεων (απο ΄δω και απο κεί-είμαιαρχάριος)έφτιαξα μια macro σε VBA for Applications και την χρησιμοποιώ στο PoiwerPoint.H λειτουργία της είναι πως επιτρέπει την σύλληψη του right click κατα την διάρκεια της παρουσίασης.Ετσι επιτέπει στον χρήστη να μεταφέρεται στην διαφάνεια νούμερο...(τάδε) κάνοντας δεξί κλικ.Να και ο κώδικας :

 

Option Explicit

 

Const vbLeftButton = 1

Const vbRightButton = 2

Const vbMiddleButton = 4

 

Const vbShiftMask = 1

Const vbCtrlMask = 2

Const vbAltMask = 4

 

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If (Button And vbRightButton) <> 0 Then

With Application.SlideShowWindows(1).View

.GotoSlide .Slide.SlideIndex + 1

End With

End If

End Sub

 

Ζητάω απο κάποιον αν γνωρίζει να μου πεί τι κάνουμε ωστε το TextBox1 που δημιουργείται να αντικατασταθεί απο ένα απλό control Button (όπως αθτά του powerpoint)ωστε ,με λίγα λόγια,κάνοντας right click στο control Button να με πηγαίνει στο επόμενο slide.Ο λόγος που θέλω control button και όχι textBox control ειναι οτι το textBox control δεν μπορείς να το κάνεις invisible ώστε απο κατω του να φαίνεται κάποιο εικονίδιο για παράδειγμα.

Οποιος θέλει μπορώ να του στείλω το παραδειγμα σε powerpoint presentation.

Ευχαριστώ προκαταβολικα...!!!!Και για την υπομονή σας!!!

[Mihos_Gr]

File armodios to mail mou einai auto [email protected] an mporeis na mou steileis to arxeiaki na to koita3w... thanx