如何判断PowerPoint自定义布局背景是否设置了用户图片？

Great question! I’ve faced this exact quirk in PowerPoint VBA before—unfortunately, the HasPicture property isn’t available directly on a custom layout’s Background.Fill object, but there are two solid workarounds to detect user-added background images.

Method 1: Check Fill Type and Picture Source #

This approach first verifies if the fill is a picture, then distinguishes between user-added (embedded/linked) images and theme-provided background textures. Here’s a reusable function:

Function HasUserAddedBackgroundImage(ByVal targetLayout As CustomLayout) As Boolean
    With targetLayout.Background.Fill
        ' First confirm the fill uses a picture
        If .Type = msoFillPicture Then
            ' Check if the picture is user-embedded or linked (not theme-based)
            Select Case .PictureFormat.Type
                Case msoPictureEmbedded, msoPictureLinked
                    HasUserAddedBackgroundImage = True
                Case Else
                    ' This is likely a theme-provided background, not user-added
                    HasUserAddedBackgroundImage = False
            End Select
        Else
            ' No picture fill at all
            HasUserAddedBackgroundImage = False
        End If
    End With
End Function

' Example usage:
Sub TestLayoutBackground()
    Dim targetCustomLayout As CustomLayout
    Set targetCustomLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1)
    
    If HasUserAddedBackgroundImage(targetCustomLayout) Then
        MsgBox "This custom layout has a user-added background image!"
    Else
        MsgBox "No user-added background image found on this layout."
    End If
End Sub

How it works: #

• We first check if the fill type is msoFillPicture (the enum for picture-based fills).
• Then we use PictureFormat.Type to filter out theme-owned images: user-added images will be either msoPictureEmbedded (saved inside the presentation) or msoPictureLinked (linked to an external file). Theme backgrounds typically fall under other types like msoPictureTexture.

Method 2: Error Handling for PictureFormat Access #

If you just need a quick check (without distinguishing theme vs user-added), you can use error handling to test if accessing PictureFormat throws an error (which happens when there’s no picture fill):

Function HasBackgroundPictureQuickCheck(ByVal targetLayout As CustomLayout) As Boolean
    On Error Resume Next
    ' Try accessing a PictureFormat property; if no error, a picture exists
    Dim picType As MsoPictureType
    picType = targetLayout.Background.Fill.PictureFormat.Type
    HasBackgroundPictureQuickCheck = (Err.Number = 0)
    On Error GoTo 0
End Function

This is simpler but less precise—it will return True for theme-based picture backgrounds too, so use it only if you don’t need to differentiate between user-added and default theme images.

Bonus Tip: Check for Inherited Backgrounds #

If your custom layout inherits its background from the slide master, you might want to check the master’s background first. Add this line at the start of the function if you need to account for inheritance:

If targetLayout.Background.Fill.Visible = msoFalse Then
    ' Background is inherited from the master; check the master instead
    HasUserAddedBackgroundImage = HasUserAddedBackgroundImage(targetLayout.SlideMaster)
    Exit Function
End If

内容的提问来源于stack exchange，提问作者MarcinSzaleniec