PowerPoint VBA Lock

Question

Hi.

Is there a VBA function to utilise the new 'Lock' facility in Powerpoint version 2204?

Many thanks,

John

Answer 1

John,

Hey, thanks for asking this. I didn't realize that this had been added but YES.

At least it's in the current Insider version:

Here's a simple example that works here. It simply locks any shapes on slide 1 that are currently not locked and vice versa:

Sub ToggleLock() 

    Dim osh As Shape 

    For Each osh In ActivePresentation.Slides(1).Shapes 

        With osh 

            osh.Locked = Not osh.Locked 

        End With 

    Next 

End Sub

Answer 2

Hi Steve.

I was a little bit early, having tried the code, it locks the aspect ration but does not seem to 'lock' the object.

John

Answer 3

Great.

Thank you Steve for the swift response.

Answer 4

Hi.

Thanks for the welcome.

I have added a screenshot. It is a new function in the latest release.

Hope that helps.

John

Answer 5

Hello , JohnBanks1

Welcome to Microsoft Community and appreciate your time taken for sharing detailed information.

May I ask what exactly you mean by "lock"? Is it like what this post **** said or something else? Can you describe in detail?

Feel free to post back if you have any additional questions.

Best Regard,

Yuhao Li| Microsoft Community Support Specialist