首先結(jié)論 : 給現(xiàn)有 ppt 添加一頁(yè)設(shè)置背景圖片置底澈圈，修改文字顏色
- 聲明兩個(gè)私有變量
private ActiveXComponent ppt;
private ActiveXComponent presentation;
- 根據(jù)傳入的 ppt
路徑構(gòu)建一個(gè)ppt對(duì)象
/***
*
* Title: JacobPptUtil
* Description: 構(gòu)建ppt對(duì)象
* @param filePath ppt路徑
* @param isVisble 是否可見(jiàn)
*/
public JacobPptUtil(String filePath, boolean isVisble) throws Exception {
if (null == filePath || "".equals(filePath)) {
throw new Exception("文件路徑為空!");
}
File file = new File(filePath);
if (!file.exists()) {
throw new Exception("文件不存在!");
}
ppt = new ActiveXComponent("PowerPoint.Application");
//設(shè)置是否可見(jiàn)
Dispatch.put(ppt, "Visible", isVisble);
// 打開(kāi)一個(gè)現(xiàn)有的 Presentation 對(duì)象
ActiveXComponent presentations = ppt.getPropertyAsComponent("Presentations");
presentation = presentations.invokeGetComponent("Open", new Variant(filePath), new Variant(true));
}
- 獲取幻燈片對(duì)象
Dispatch windows = presentation.getProperty("Windows").toDispatch();
Dispatch window = Dispatch.call(windows, "Item", new Variant(1)).toDispatch();
Dispatch selection = Dispatch.get(window, "Selection").toDispatch();
//獲取幻燈片對(duì)象
ActiveXComponent slides = presentation.getPropertyAsComponent("Slides");
- 在之前添加一頁(yè)
/**
* @param type
* 2:標(biāo)題+文本
* 3:標(biāo)題+左右對(duì)比文本
* 4:標(biāo)題+表格
* 5:標(biāo)題+左文本右圖表
* 6:標(biāo)題+左圖表右文本
* 7:標(biāo)題+SmartArt圖形
* 8:標(biāo)題+圖表
*/
private static Variant addPptPage(ActiveXComponent slides,int pptPage,int type)throws Exception{
return slides.invoke("Add", new Variant(pptPage), new Variant(type));
}
- 給選中元素添加值 （每頁(yè)幻燈片的元素在添加值的時(shí)候已經(jīng)確定了
例： 如果創(chuàng)建類(lèi)型為 2篓像，那么元素就只有
標(biāo)題和文本
/**
* 在Selection對(duì)象上修改TEXT對(duì)象的值
*
* @param selectionObj
* @param value
* @throws Exception
*/
public void addTextValue(Dispatch selectionObj, String value) throws Exception {
Dispatch shapeRange = (Dispatch) Dispatch.get(selectionObj, "ShapeRange").getDispatch();
Dispatch textFrame = (Dispatch) Dispatch.get(shapeRange, "TextFrame").getDispatch();
Dispatch textRange = (Dispatch) Dispatch.get(textFrame, "TextRange").getDispatch();
Dispatch.call(textRange, "Select");
Dispatch.put(textRange, "Text", value);
}
- 修改文字顏色
/***
*
* @Title: addTextCloc
* @Description: 設(shè)置字體顏色
* @param selectionObj
* @param color
* @throws Exception
* void 返回類(lèi)型
* @throws
*/
public void addTextColor(Dispatch selectionObj,String color) throws Exception {
Dispatch shapeRange = (Dispatch) Dispatch.get(selectionObj, "ShapeRange").getDispatch();
Dispatch textFrame = (Dispatch) Dispatch.get(shapeRange, "TextFrame").getDispatch();
Dispatch textRange = (Dispatch) Dispatch.get(textFrame, "TextRange").getDispatch();
Dispatch Font = (Dispatch) Dispatch.get(textRange, "Font").getDispatch();
Dispatch Color = (Dispatch) Dispatch.get(Font, "Color").getDispatch();
Dispatch.put(Color, "RGB",color);
}
- 添加背景圖片
//后面參數(shù)值依次是 left top whith hight
Dispatch picture = Dispatch.call(shapes, "AddPicture","圖片路徑", 1, 1, 1, 1).toDispatch();
// 選中圖片
Dispatch.call(picture, "Select");
//設(shè)置寬度高度
//Dispatch.put(picture, "Width", new Variant(1920));
//Dispatch.put(picture, "Height", new Variant(1200));
//設(shè)置圖片的層級(jí)關(guān)系
Dispatch.call(picture,"ZOrder",1);
總結(jié)
- 有上面的代碼可知
修改字體顏色的代碼是
Dispatch shapeRange = (Dispatch) Dispatch.get(selectionObj, "ShapeRange").getDispatch();
Dispatch textFrame = (Dispatch) Dispatch.get(shapeRange, "TextFrame").getDispatch();
Dispatch textRange = (Dispatch) Dispatch.get(textFrame, "TextRange").getDispatch();
Dispatch Font = (Dispatch) Dispatch.get(textRange, "Font").getDispatch();
Dispatch Color = (Dispatch) Dispatch.get(Font, "Color").getDispatch();
Dispatch.put(Color, "RGB",color);
有 ShapeRange 對(duì)象得到 TextFrame馏段，再由 TextFrame 得到 TextRange 對(duì)象再得到 Font 對(duì)象
與之對(duì)應(yīng)的ppt宏的VBA代碼是
Sub Macro1()
' 宏由 User 記錄，日期: 2018-7-2
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppAccent3
End Sub
通過(guò)觀察對(duì)比JAVA和VBA代碼得知(是的...不會(huì) vba 全程用猜)：
ActiveWindow.Selection
等同于
(Dispatch) Dispatch.get(selectionObj, "ShapeRange").getDispatch()
- &&&
Selection.TextRange
等同于
Dispatch textRange = (Dispatch) Dispatch.get(textFrame, "TextRange").getDispatch();
由觀察得志践惑，JACOB 的 Dispath 對(duì)象可以抽象理解為 VBA 的對(duì)象，而 Dispath 的 get() 方法的意思是通過(guò)傳入的第一個(gè)參數(shù)得到 VBA 意義上的和 get() 方法第二個(gè)字符串參數(shù)值匹配的 VBA 對(duì)象，那么知道這個(gè)之后大部分的 VBA 代碼都是可以用 Dispath對(duì)象的get()方法翻譯岩臣。
后記
綜上所述~VBA 是可以翻譯為 JAVA 代碼的,（累死個(gè)仙人
值得一提的是 ：在顏色的選擇方面，一般來(lái)說(shuō)顏色都是通過(guò) RGB 或者是 16 進(jìn)制來(lái)確定的宵膨。但是 jacob 在設(shè)置字體顏色的時(shí)候傳入的值是一個(gè)由三個(gè)","分隔的數(shù)字架谎。最后發(fā)現(xiàn)一條線(xiàn)索是把 16 進(jìn)制的顏色數(shù)字轉(zhuǎn)化為 10 進(jìn)制，之后兩位一組","隔開(kāi)傳入.....最后試了試還是不行.....但是有些是可以,現(xiàn)在能確定的顏色是：
Dispatch.put(font, "Color", "16,77,72,15");//白色字體
Dispatch.put(font, "Color", "1,0,0,0");//紅色字體
