如題，VB怎樣控制Open office calc網格邊框線
Set document = oDesktop.CurrentComponent.CurrentController.Frame
Set dispatcher = oServiceManager.CreateInstance("com.sun.star.frame.DispatchHelper")
Call oDesktop.CurrentComponent.CurrentController.Select(oSheet.getCellRangeByName("A5:M" & nI))
Set t2(0) = MakePropertyValue("OuterBorder.LeftBorder", Array(0, 0, 2, 0))
Set t2(1) = MakePropertyValue("OuterBorder.LeftDistance", 0)
Set t2(2) = MakePropertyValue("OuterBorder.RightBorder", Array(0, 0, 2, 0))
Set t2(3) = MakePropertyValue("OuterBorder.RightDistance", 0)
Set t2(4) = MakePropertyValue("OuterBorder.TopBorder", Array(0, 0, 2, 0))
Set t2(5) = MakePropertyValue("OuterBorder.TopDistance", 0)
Set t2(6) = MakePropertyValue("OuterBorder.BottomBorder", Array(0, 0, 2, 0))
Set t2(7) = MakePropertyValue("OuterBorder.BottomDistance", 0)
Call dispatcher.executeDispatch(document, ".uno:SetBorderStyle", "", 0, t2)
上面是我在網上抄的一段代碼
Set document = oDesktop.CurrentComponent.CurrentController.Frame ，這行運行提示沒有CurrentController Object，什么問題？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25174.html
標籤：VBA
上一篇：Excel如何使用宏按鈕判斷兩個表中同時滿足兩個條件（A=A）且（B=B）的資料
下一篇：關于VB的問題