How to Create Drag and Drop with PowerPoint and VBA: Part 1

[@rkavitha7171]

for the people who have a problem in dragging the object, try changing the slide number in the code

[@valsevilla4203]

Hmmm... right at 16:20 your screen changes and the position and position_end text is appearing. Mine isn't. I've followed every step precisely. Any idea what might be going wrong? Thank you for this video. I really want to figure this out.

[@Awayzo]

Yes, that was a glitch, however, there are no missing steps. Make sure you select the shape first, then go to insert, action... If you are getting an error it means you misspelled some code or if it just is not working, it could mean that you may not have added or changed the code. Remember VBA is case sensitive.

[@valsevilla4203]

Thank you for replying. Could I maybe email you the file and see if you can find what I did or didn't change right? I don't have experience yet with VBA, but I regularly use other coding languages. To make sure I wasn't missing anything, I used copy/paste. I included quotes. I'm using my own images, of course, but I kept the names the same as yours (until I learn VBA myself). So, I have a ball and a box, but they are named "square" and "square_end".

[@Awayzo]

What I can do is give you this link to the finished code. You can compare it to your own or just paste it into your project after deleting your code:docs.google.com/document/d/1sNqpYhLDd1971ZJXtnoA-b96BDkBG4NwjxMnolSzJ2k/edit?usp=sharing

[@valsevilla4203]

Malik Stalbert Thank you.

[@vinzfelix769]

Hi Malik! Very good video! Just a question please. I have gone back to the video several times to make sure I follow it step-by-step but the issue I have is it doesn't seem to even allow me to 'Drag' the Image (when in Presentation F5 mode) I added the DragandDrop macro to, or any object I tried for this matter. I am obviously doing something wrong but can you help me identify the source?

[@insiyahtinwala2843]

I went through part 2 as well, it works somewhat. I want to know why is the timer necessary? Can this be made by just drag and drop to target and if doesn't hit goes back? The timer and position seems unnecessary but I'm not a coder just curious.

[@martinvarsano]

Hi! One question: In your code you are referring to a shape called "sqrBlack", but you named the black square "square_end", so where Powerpoint is looking for that name?

[@jasonbarrant1621]

Hi Malik, just did all the steps and run macro/drop and drag is selected in the actions box but can't move shapes or see countdown - is there something I am supposed to do to finish with the module box, once all the changes have been made to the code, to save the changes perhaps?

[@franklymacaraeg6806]

same here..

[@canaldomirazimoficial]

hello. First I want to thank you for your immense help. I'm from Brazil, and maybe that's why I didn't understand something. I would like to know if I can keep user32, which you use. because the entire second paragraph, in which you use it, is in red. where did you get this user32 from...

[@SugarplumFlowers]

I really appreciate this tutorial but having been thrown into creating online classes ....all of this this is a bit much....I wish Microsoft teams just integrated this into create Assignments options with a few templates and upload choices for your own pictures .....anyways I will give this a try

[@MathWitMsJ]

Are there any particular settings a Mac user would need in order to run a presentation with macros? Iv created a drag and drop activity using ur tutorial and other snippets of code (to add sound and reset my slides). I use a windows laptop but I want to make sure it will also work on a Mac.

[@Awayzo]

No, it will not. The only way to do it is to run Windows on Mac.

[@Esclarecidos]

Do you know how to control a video in a slide with buttons? I inserted some bookmarks on the video, and I want the buttons to start playing the video at bookmarks times. For example, button 3 starts bookmark 3, button 4 starts bookmark 4, etc. I couldn't find out a way to do that using normal Powerpoint actions. Maybe with VBA it is possible. What do you think?

[@nurkhalidakhalid8824]

thanks a lot for this. Just wondering , if I change the square shape to arrow shape, do I need to change certain area in the codes? for example sqrBlack to something else? really cool if you can answer this since I have no background in programming language.

[@Awayzo]

No you do not, however you do need to change the name of the shape to what is in the code

[@edithlachi8727]

Thank for your video. Now, I can improve my slides for my classes.

[@Pythogoras570BC]

Why everybody can see the link to download the code and I can't see it? Low IQ? Any how, some help would be greatly appreciated Thanks in advance

[@thepotatolizerd33]

it’s in the description

[@klausczich9641]

While dragging the shape moves (jumps!) extremely slowly (PowerPoint 2021 on Win10 Pro, powerful i7 laptop...) I have tested it on several laptops And if DropInSeconds = 0 the shape only jumps once at a click Why?

[@arvinlaraya6337]

countdown number also appears on the dragged box, why is that happening? I rechecked twice if I followed it precisely.

[@Fr3PO4]

In the provided code there is a line that says " 'Comment out the next line if you do NOT want to show the countdown text within the shape". This is exactly what you've been looking for.

[@KENTAPOCATE]

not working on my presentation...

[@ThuTran-im5xn]

How can I do with dragging words and dropping into shapes? Can I still use the macro link you sent?

[@Awayzo]

I would create a shape and remove teh background color and the border, then add the Text. This would allow you to drag the text.

[@thepotatolizerd33]

Greetings, Malik! Is there a way I could make PowerPoint switch slides once the box is dropped on the other box?

[@Awayzo]

Yes, you just have to create a slide in code, then load it.

[@loretacordero4022]

Hello, this could be late but does it run on latest version of MS Powerpoint?

[@raulgarcia8746]

Hi, what can i do to make shapes draggable but not with time limit??

[@Awayzo]

To simply make it draggable regardless; you would remove the if statement "If Timer > StartTime + DragInSeconds" However, you will need to replace it with a click event to stop the dragging. That is of course if you want it to stop dragging. If you do not need it to stop dragging, then only replace the drageMode variable to true in the if statement and it will drag as long as the application is running.

[@raulgarcia8746]

@@Awayzo thanks a lot...

[@RR-tq2ee]

hey did u manage to figure it out? i know im probably too late xD

[@marcgilbation5063]

Hello, I was able to enable the drag and drop function However. I have issue with the timer. Why is that the selected shape that i am dragging has a timer as well? How to remove it? Hoping to have an answer from you :(.

[@Awayzo]

Becasue you have them grouped more than not

[@stephanieignas]

Will it still work even though I have other slides in the same Powerpoint Presentation?

[@ВалерияЮдина-о5и]

Hi. Nice video and explanation, but I have a problem. I cannot move my colored figures. So when I switch on the presentation by pressing f5 I cannot actually drag any colored figure, as you do in the video. Do you have any ideas or probably recommendations? I will be really grateful!

[@Awayzo]

Keep in mind that PowerPoint recognizes fills, shapes, and lines separately. It could be that another shape has an invisible width and height that is covering up what you want to select.

[@RR-tq2ee]

try to press the shape first and then move your mouse.

[@elizabethpayawal6438]

Can you help me? I tried to follow everything you mentioned in the video but as I reach the last part, wherein I need to click the "Run_macro" in Action button, it's not enabled. The thing enabled only are the "None", "Hyperlink to" and "Run program", "Run macro" is disabled. I cannot apply the action drag and drop. Can you help me solve this?

[@nabilasalsabila8574]

Elizabeth Payawal file>option>trust setting>macro setting>enable (i forgot the complete sentences but try the third option)>ok

[@nurhidayahmostaffa4071]

Does this codes valid for images? Not shape . I’ve try using the codes to create mix and match pictures but it’s seems not working . Please reply back.🙏🏼

[@Awayzo]

Yes. You would fill the rectangle with an image and name the shape as it relates to the image.

[@nurhidayahmostaffa4071]

Malik Stalbert okay thank youuuu so much for the info

[@marlontayag5683]

Hello, Malik. Great Video. I just want to ask what code to remove if I would not be using the timer. Thank you.

[@Awayzo]

Make the time 0

[@deraldreynolds3294]

Thank you for the vid! I've followed the instruction to the T however, in VBA the text between "#Else Public .... etc #End" If is red. Does that mean it won't work? How can I fix this, Thank you for your time!

[@deraldreynolds3294]

Says the following "Compile error: The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute."

[@deraldreynolds3294]

Also, does this work the same for MAC users? :)

[@Awayzo]

Yes, you have to use PtrSafe to tell VBA that the code is safe for 64bit. PtrSafe. The PtrSafe keyword asserts that a Declare statement is safe to run in 64-bit versions of Office. docs.microsoft.com/en-us/office/vba/language/concepts/getting-started/64-bit-visual-basic-for-applications-overview

[@Awayzo]

Yes, but as a sandbox with some restrictions. :docs.microsoft.com/en-us/office/vba/api/overview/office-mac

[@travelbugsally19]

These tips are amazing! Thank you. I am working on both a PC and a Mac for the same interactive powerpoint. If I do the commands on a PC (as per your examples) will they automatically do the same on my Mac?

[@Awayzo]

Yes, it should work. However, any active-x controls you use in a project will not work. There has been an update to the VBA editor recently so I would suggest testing it before presenting it.

[@sheridanmillichip2447]

Hi, I was just wondering, if I could use the drag and drop on multiple slides in one presentation. If so how do I change the VBA to make that work, please.

[@Awayzo]

Yes, you can. You just have to place the code as a class by itself, outside the slide's class structure.

[@sheridanmillichip2447]

@@Awayzo I really don't understand what that means, could you please explain that in another way?

[@Awayzo]

All the code we write in VBA exist in a file. The file is seen as a class in VBA. You would have to create a new class aside from the original one we made and place your code there.

[@anugrey9587]

GREETINGS! I WANT TO DO 'FILL IN THE GAPS ACTIVITY' THROUGH DRAG AND DROP MACROS. AS YOU KNOW THERE IS ONE FILL AND OPTIONS ARE MORE . SO I NEED TO KNOW HOW TO APPLY DRAP AND DROP IN THIS CASE. THANKYOU

[@Awayzo]

Oh, I get it. That is a great idea. I will look into it. If I have this correct, is it like a paint in the area game?

[@laurarolon6979]

Hi, I copied you compleated code and added the shapes but I can't get the macro to run. I enabled the macros on Powerpoint. Can you help me?

[@Awayzo]

There is not much I can do. The video is complete and the code works. I would suggest checking for misspellings or extra spaces. VBA is very particular and the smallest mistake will prevent the entire application from working.

[@CoeyDien]

thanks so much for these empowering tuts... but will these code work for powerpoint 2010 vba?

[@Awayzo]

VBA has not changed, so if 2010 has the same components I am referencing, yes.

[@Awayzo]

You also asked about your version, it is possible because Office 2013 and Office 2016 includes VBA 7.1 while Office 2010 includes VBA 7.0. The code I am using, however, should work on both versions. Whenever I am doing these videos, I am doing them in one shot to make sure whatever I am doing it will work for you as it does for me.

[@anugrey9587]

GREETINGS ! COULD YOU KINDLY EXPLAIN DRAG AND DROP MACROS WITH SOME EXAMPLE LIKE FILL IN THE GAPS. THANKYOU

[@Awayzo]

Do you mean...like create an image with gaps and the user has to fill them in?

[@MsHuyenAVchannel]

@@Awayzo He may mean that students choose the word/ phrase to fill in the blank of a sentence.

[@neishahazel6528]

Hi. I have tried the code on numerous occasions and I can't get it to work. Can I have some assistance, please?

[@Awayzo]

Normally, if you cannot get it to work, it is due to errors with capitals that should be lower case and vice versa. In some cases you can also check for naming inconsistencies.

[@marcusbivines5562]

Great Job!

[@Awayzo]

Thanks for watching...

[@gustavox9108]

Hello, I am trying to learn all this stuff -- what does this part of the project file do? ty!#If VBA7 Then Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As LongPtr) As Integer Public Declare PtrSafe Function WindowFromPoint Lib "user32" (ByVal xPoint As LongPtr, ByVal yPoint As LongPtr) As LongPtr Public Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As LongPtr Public Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As LongPtr Public Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As LongPtr) As LongPtr #Else Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long #End If

[@RR-tq2ee]

i appreciate what you doing but hell ive been testing and redoing this vba macro script like numerous times and still not be able to drag the shapes.. i followed your steps like using images, the label or name and everything but still no luck of creating the same idea.. pls help me out

[@RR-tq2ee]

nvm.. i found out why it didnt move.. it because i dragged immediately where i need to click first then drag. However the window "Great Job!" didnt open up everytime i put the shapes on top of the black square

[@erinsnyder8048]

I can't find the project file in Patron

[@cecicvn3589]

Is it possible to make more slides in the same PowerPoint?

[@Awayzo]

Yes, you have to make sure to select the correct slide in code.

[@altybaalwadod1992]

hello could you help me i did it alot of times but when i click with mouse on the shape it is not moving i donot why or where the mistake macro option works with me but when i try to move the shape it is not moving

[@Awayzo]

A few people ran into this issue. It is difficult for me to reproduce unless I had your project file.

[@RR-tq2ee]

try to press the shape first and then move your mouse.

[@njbenoza3038]

Good day.. good thing I have seen this video and thanks for this. I just want to ask something. I have unlicensed PowerPoint installed in my laptop, could it be possible to save this enabled macro ppt presentation? How? Thanks for any feedback.

[@Awayzo]

Yes, you can

[@wahyudik2307053]

Sorry Malik, these script cant work in windows 64-bit can you give any solution?

[@MoezRekik]

Hi, you are the only one doing drug and drop exercise. Well done. Can you tell me how to have a correspondence between a text and an image instead of A and a. Thank you

[@Awayzo]

So many people have been asking about this. I will do a video explaining the process. Thank you for watching. It is just a matter of connecting the text and image to the same variable.

[@MoezRekik]

@@Awayzo thank you. We wait your video

[@MsHuyenAVchannel]

@@MoezRekik Create Drag and Drop Activities on Pp and you can move text/ image/ any objects in present mode kzbin.info/www/bejne/Y2jKn6CIrdOnm6M

[@MoezRekik]

@@MsHuyenAVchannel Cảm ơn bạn rất nhiều về hướng dẫn.

[@MsHuyenAVchannel]

@@MoezRekik from Vietnam, hello guys :)

[@كيمياءهادئة]

Many thanks for you.You are the best.

[@Awayzo]

Thank you for watching...

[@marcoscerpa2876]

Gran trabajo, pero tengo una pregunta, Como hacerlo sin temporizador?????????

[@Awayzo]

Haz que el temporizador cuente 0

[@hats_off9115]

what if i want to add more shapes?

[@Awayzo]

Make sure you name the shape then create another ActivePresentation.Slide(1).Shapes (Shape name here) declaration

[@hats_off9115]

@@Awayzo thx

[@furtasticpawsadventures]

Aha! It works! I'm done with the part 1.

[@prettyxtinferrera6891]

Where is the code?

[@DeenQuery]

Great video 👌 thanks

[@karmsrunestone]

You ever considered leaving the original comments in the source code from code you steal from another developer?

[@Awayzo]

Make sure to save as Macro enable. If you do not, it will not save the code.

[@ismailj.7302]

Lot of thanks bro, it works.. btw how i could a multiple dragNdrop which varies end positions? i ve tried it but it doesnt turn out..plz help me

[@Awayzo]

By multiple, do you mean 2 items at one time?

[@ismailj.7302]

for instance i have 5 items then there will be also 5 end positions..

[@Awayzo]

You would simply change the code to add a limit to the last selection. So instead of second selection being checked, it would be the 5th in VBA. This actually sounds like an interesting thing to try. I will make a video in the future of this if you like.

[@Awayzo]

I think I understand. Did you watch part 2 because I address this?

[@ismailj.7302]

yeah i knew it

[@roboj2236]

not working .. something missing I did it 4 times step by step

[@orangepants5358]

hey can u help me idk why but is not working for me and i followed the steps closely so is it cuz of my version?

[@Awayzo]

Make sure that your security setting allows the script to run.

[@orangepants5358]

@@Awayzo already done that

[@Awayzo]

@@orangepants5358 What I can tell you from helping many people one of two issues could be the problem... 1. Misspellings or missing quotes/parentheses in the code. This is hard to find because VBA doesn't really give you an error message for all errors. You would have to rake over the code and make sure. 2) Naming the shapes one way and trying to access the shapes in code another way. You also asked about your version, it is possible because Office 2013 and Office 2016 includes VBA 7.1 while Office 2010 includes VBA 7.0. So your version could be an issue. The code I am using, however, should work on both versions. Whenever I am doing these videos, I am doing them in one shot to make sure whatever I am doing it will work for you as it does for me.

[@orangepants5358]

thank you this did helped me and i saw a little dot that while writing wasnt in my vision and now its working properly , and my school project is ready.thank u again

[@Awayzo]

@@orangepants5358 No problem. Thanks for the update.

[@rahoomyes8992]

Where is the part 2 ?

[@Awayzo]

kzbin.info/www/bejne/fn_MmmeVdr6GpZI

[@alexneves7809]

I don't know what I've done wrong. I did it and it all worked but I didn't save it so just did it again and again but I can't get it to work. Help!

[@Awayzo]

what part is not working? You have to make sure you do it one thing at a time and test it as you go.

[@alexneves7809]

@@Awayzo I managed to get it to work, thanks. However I do have a question. I'm creating an online course and I'm trying to create a drag and drop quiz. Is there a simple way I can lock correct answers in PowerPoint? or is there somewhere I can find a template?

[@Awayzo]

@@alexneves7809 When you say lock; What exactly do you mean. Are you saying that you do not want the answers accessable by the user?

[@alexneves7809]

@@Awayzo no, lock is maybe the wrong word. I want, for example, to have drag and drop where only the correct answer can be dropped into the destination, (like in your example the red box into the black box) and no other, or that it would state if it is correct or wrong. What part of your given code is needed? What should I change? or do I need a completely different code? :-)

[@Awayzo]

@@alexneves7809 What I would do to adjust what we currently have to fit your specifications, is to make all the other "answers" into images with not code attached and only attach the code to the active image. When the correct one is dragged and dropped, I would then advance the user to another slide that looks the same but with another object as teh answer and no other options. You would be using multiple slides, but this would be the easiest way.

[@marcgilbation5063]

Hello, I am your new subscriber. Been reading and watching tutorial videos about VBA in PPT. I am so grateful that i found a tutorial video for Drag and Drop function. Thank You so much. Hope to see more videos from you. I have one question....what will i do if i only want the drag and drop function and not using the timer? What should i do?

[@Awayzo]

You can make the timer = 0 sec

[@prettyxtinferrera6891]

Where is the code link?

[@alecarmstrong7538]

Hi - I think I have worked out how to improve your code. Please communicate with me if you would like more information.

[@kaustubhkarva9565]

Can u please share code for 64 bit users please

[@clairedouglas3269]

Hi, I’m trying to use this to create a test for my pupils. When I got to Insert>Action> Run Macro is not enabled. I tried to enable using the Trust Centre and enabling all macros but it’s still not enabled and faded out. Thanks

[@rocio2917]

Is your screen enlarged? If the screen is minimized it might not show the 'action' option. The shape also needs to be selected.

[@judelbeltran2230]

Still the same I tried a lot of times also. Did you already find a solution to enable macro? @claire douglas?

[@ItzWolfyZZZ]

The code is just for 32 bits users? :[

[@umairm.5662]

You;re awesome

[@redeemz7531]

It didnt work for me :(

[@progamer-205]

this guy is insane i made a game and it realy works hahahahahahaha thank you malik sir 😁😁😁😁😁😁😁😁😁😁

[@CikguSultani]

thanks

[@SooJiYan]

is not working >.

[@AlekayLopez]

Is the countdown mandatory?

[@Awayzo]

No

[@demy7880]

It doesn't work :(

[@MsHuyenAVchannel]

have a look at this video about making drag and drop game with Pp kzbin.info/www/bejne/Y2jKn6CIrdOnm6M

[@ma.jennecilblanco3202]

I followed the steps properly but the message box isn't working. Thanks

[@Awayzo]

It means you missed something...probably misspelled or an extra space somewhere

[@francolescano5256]

Chale no sé inglés :'v

[@am2320LG]

An intro to ClassPoint for Drag and Drop instructions stated NO VBMs ("drag and drop objects in PowerPoint without Macros, VBA coding, or animations!") but your tutorial is all about VBMs. I'm not a coder and following your instructions was not easy (pace was fast) and those codes (ugg). 😵‍💫