How to undo Set Transparent Color after saving the Presentation? Visual compare text by overlay Images

Question

How to undo Set Transparent Color after saving the Presentation? Visual compare text by overlay Images

Anonymous

I have been visually comparing two pages of text to verify everything is same except three-characters month abbreviation (at fixed position); in other words, all text except month information is standard.

To do this, I stacked two Full Print Screens as below:

PAGE	WHITE	BLACK	OVERLAYED OF SAME TEXT (say Jane)	DIFFRENT TEXT (Jan vs this month)
Jan	non-transparent	non-transparent	LEGIBLE as Jane	ILLEGIBLE <br><br>as Feb stacked on Jan
Feb	Set Transparent Color

If result is above, then I am confident that two pages are same except for month information.

Problem appears when the standard needs to be changed; say Jane is now John.

I need to use this month of Text (which shows John) as standard; to do so, I need to undo the transparent color which is already saved into the Presentation; and delete the out-dated Page (which shows Jane).

How to reset the image for transparent color only? without having to reset other attributes?

There is VBA which is not preferred solution in my work environment; for others, here is code from

VBA sample - How do I reset or undo transparent color?

Something like
Sub trans()ActivePresentation.Slides(1).Shapes(3).PictureFormat.TransparentBackground =msoFalseEnd SubYou will need to change the slide number if its not slide one and maybeexperiment with the shapes number

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

6 answers

Answer 1

Dear Panes,

Thanks for your updates and kindness.

Sorry for that our category may have limited resources on VBA solutions.

I suggest you post a new thread on the specific support channel mentioned in Office VBA support and feedback | Microsoft Learn so that the related team can look into the macro code and provide the right value for the parameter for your reference.

Thanks for your understanding.

Sincerely

Cliff | Microsoft Community Moderator

Thanks Cliff, I already followed up on your link and waiting. I am bit surprised no one responded on the value to set in VBA for "Shape.PictureFormat.TransparencyColor" ?

Is 0 the value to set in VBA for "Shape.PictureFormat.TransparencyColor" which worked yesterday by my trial and error?

Answer 2

Dear Panes,

Thanks for your updates and kindness.

Sorry for that our category may have limited resources on VBA solutions.

I suggest you post a new thread on the specific support channel mentioned in Office VBA support and feedback | Microsoft Learn so that the related team can look into the macro code and provide the right value for the parameter for your reference.

Thanks for your understanding.

Sincerely

Cliff | Microsoft Community Moderator

Answer 3

Dear Panes,

I'm afraid that there is no built-in way doing that. You may need to consider using VBA.

From your description, it seems that you have taken it into account. You mention that the code you are referring to now seems not be preferred.

Sorry for that our category may have limited resources on VBA solutions.

I suggest you post a new thread on the specific support channel mentioned in Office VBA support and feedback | Microsoft Learn so that the related team can provide a feasible script for you to fully achieve your requirement.

Meanwhile, I'll keep the thread open and welcome other experienced members to share their suggestions and opinions.

Thanks for your understanding.

Have a nice day!

Sincerely

Cliff | Microsoft Community Moderator

thanks, I followed up.

Answer 4

The VBA that I tried works

Sub TransparencyColor_Reset()
' PowerPoint does not provide Reset Transparency Color
' https://answers.microsoft.com/en-us/msoffice/forum/all/how-to-undo-set-transparent-color-after-saving-the/05959655-cfa7-4761-a0e2-b9f55519b3a9
'  I have been visually comparing two pages of text to verify everything is same except three-characters month abbreviation (at fixed position); in other words, all text except month information is standard.
'  To do this, I stacked two Full Print Screens as below:
' 16777215 is White color (Decimal 16777215) - Converting Colors
' -2147483648 TransparencyColor when NOT set for White Color
    Dim PP As PowerPoint.Application
    Dim Pres As PowerPoint.Presentation
    Dim curSlide As Slide
    Dim curShape As Shape
    
    On Error Resume Next
    Set PP = GetObject(, "PowerPoint.Application")
    On Error GoTo 0
    Set Pres = PP.ActivePresentation
    With Pres
        PP.Visible = True
        For Each curSlide In .Slides
            For Each curShape In curSlide.Shapes
                With curShape
                        With .PictureFormat
                            .TransparencyColor = 0
                        End With
                End With
            Next curShape
        Next curSlide
    End With
End Sub

My question is what value is reset for Shape.PictureFormat.TransparencyColor?

Answer 5

Dear Panes,

I'm afraid that there is no built-in way doing that. You may need to consider using VBA.

From your description, it seems that you have taken it into account. You mention that the code you are referring to now seems not be preferred.

Sorry for that our category may have limited resources on VBA solutions.

I suggest you post a new thread on the specific support channel mentioned in Office VBA support and feedback | Microsoft Learn so that the related team can provide a feasible script for you to fully achieve your requirement.

Meanwhile, I'll keep the thread open and welcome other experienced members to share their suggestions and opinions.

Thanks for your understanding.

Have a nice day!

Sincerely

Cliff | Microsoft Community Moderator

Share via

How to undo Set Transparent Color after saving the Presentation? Visual compare text by overlay Images

6 answers