Powerpoint VBA locking/unlocking

Question

Hello!

I'm trying specifically to use VBA to lock/unlock certain shapes in powerpoint, yet I keep getting a popup that says:
"Run-time error '438':
Object doesn't support this property or method"

I tried following this thread:

And this list of Shape methods does not include .Locked on it.

This is the line of code that's giving me issues:

mySlide.Shapes("test").Locked = True

where "test" is the name of the desired shape in the slide. I can run any other method using this code and it works just fine. Any help would be appreciated!

Answer 1

I have a subscription for Office Windows and Office Mac.

I think the code ought to run the same on both platforms, so to me it's a bug on the Mac side. Point taken, we don't know what version or license type of Office Mac is being asked about, but it just doesn't work at all AFAIK.

Answer 2

Yes, but WHICH PPT for Windows. IIRC, it works in M365/subscription version but not in the non-sub version (ie, 2021)

Answer 3

Hi Steve,

This works in PPT for Windows for me, but not Mac

Sub test()
Dim myDocument
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes("Rectangle 3").Locked = True
End Sub

Answer 4

Bug or just not yet implemented ...?

It doesn't work in Windows/PPT2021 either.

Answer 5

Hi

I confirm this is a bug.

Use the Menu Bar and choose Help > Feedback > I Don't Like Something to alert Microsoft to this problem.

Thanks