New
#1
How to undo Set Transparent Color after saving the Presentation? W10
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:
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
My question is what value is reset for Shape.PictureFormat.TransparencyColor?
Is 0 the value to set in VBA for "Shape.PictureFormat.TransparencyColor" which worked yesterday by my trial and error?
Code: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
Last edited by 8KMw; 08 Feb 2024 at 00:05.