function SetTableColor() {
let i,Slides,Slide,RGBHead,RGBOddRow,RGBEvenRow;
RGBHead=[200,0,0];
RGBOddRow=[100,0,0];
RGBEvenRow=[150,100,100];
Slides=Application.ActivePresentation.Slides;
for(i=1;i<=Slides.Count;i++){
// Console.log("Slide:"+i);
SlideLop(Slides.Item(i).Shapes,RGBHead,RGBOddRow,RGBEvenRow)
}
}
function SlideLop(Shapes,RGBHead,RGBOddRow,RGBEvenRow){
/*
https://docs.microsoft.com/zh-cn/office/vba/api/Office.MsoShapeType
msoTable=19
*/
let iShape,iRow,Shape,Rows,Row,RGB;
for(iShape=1;iShape<=Shapes.Count;iShape++){
Shape=Shapes.Item(iShape);
if (Shape.Type!=19){
continue;
}
Rows=Shape.Table.Rows;
if (Rows.Count<1){
continue;
}
SetTableRowColor(Rows.Item(1).Cells,RGBHead);
for(iRow=2;iRow<=Rows.Count;iRow++){
Row=Rows.Item(iRow);
if(parseInt(iRow/2)*2==iRow){
RGB=RGBEvenRow;
}else{
RGB=RGBOddRow;
}
SetTableRowColor(Row.Cells,RGB);
}
}
}
function SetTableRowColor(Cells,RGB) {
let iCol,Cell;
for(iCol=1;iCol<=Cells.Count;iCol++){
Cell=Cells.Item(iCol);
Cell.Shape.Fill.ForeColor.RGB=RGB[2]*65536+RGB[1]*256+RGB[0];
// Color=Cell.Shape.Fill.BackColor.RGB;
// Console.log("RGB="+Color);
}
}
WPS Presentation set custom table color
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
- 文/潘曉璐 我一進店門筛严，熙熙樓的掌柜王于貴愁眉苦臉地迎上來醉旦，“玉大人，你說我怎么就攤上這事桨啃〕岛” “怎么了？”我有些...
- 文/不壞的土叔 我叫張陵照瘾，是天一觀的道長匈棘。 經(jīng)常有香客問我，道長析命，這世上最難降的妖魔是什么主卫？ 我笑而不...
- 正文 為了忘掉前任，我火速辦了婚禮鹃愤，結(jié)果婚禮上簇搅，老公的妹妹穿的比我還像新娘。我一直安慰自己软吐，他們只是感情好瘩将，可當我...
- 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著凹耙，像睡著了一般姿现。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上使兔，一...
- 文/蒼蘭香墨 我猛地睜開眼匹涮，長吁一口氣：“原來是場噩夢啊……” “哼！你這毒婦竟也來了槐壳？” 一聲冷哼從身側(cè)響起然低，我...
- 正文 年R本政府宣布恭理，位于F島的核電站拯辙，受9級特大地震影響，放射性物質(zhì)發(fā)生泄漏蚯斯。R本人自食惡果不足惜薄风，卻給世界環(huán)境...
- 文/蒙蒙 一饵较、第九天 我趴在偏房一處隱蔽的房頂上張望拍嵌。 院中可真熱鬧，春花似錦循诉、人聲如沸横辆。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽狈蚤。三九已至，卻和暖如春划纽，著一層夾襖步出監(jiān)牢的瞬間脆侮，已是汗流浹背。 一陣腳步聲響...
推薦閱讀更多精彩內(nèi)容
- 使用cocopods時遇到以下錯誤： CocoaPods did not set the base configu...
- remember to name your color vector with the corresponding...
- QR Code 用于在 Twitter 和 Snapchat 等 app 中共享內(nèi)容或添加新用戶篡九。從 iOS 11...
- 最近在練習demo的時候發(fā)現(xiàn)Xcode7在使用Main.storyboard的inital View Contor...
- 當在業(yè)務(wù)開發(fā)的時候谐岁，固定的頁面表格標題及內(nèi)容不能滿足需求，需要根據(jù)不同的需求動態(tài)加載表格表頭和表格的內(nèi)容,如下圖：...
