帝王2018.10.07 回答

設定上下表數字，大神可以搞定

匿名2018.06.12 回答

sub change_whitetext_toblack（）

on error resume next

dim i， j as single

for i = 2 to activepresentation。slides。count

for j = 1 to activepresentation。slides（i）。shapes。count

with activepresentation。slides（i）。shapes（j）

if 。fill。backcolor = vbwhite and 。textframe。textrange。font。color = vbwhite then

。textframe。textrange。font。color = vbblack

end if

end with

next

next

end sub

插入模組，複製程式碼到其中。