| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Patrick Wu
註冊時間: 2007-01-03
文章: 228
來自: 台北市
第 1 樓
|
 發表於: 星期三 一月 27, 2016 4:07 pm 文章主題: EXCEL 如何差入 圖案 |
 |
|
煩請教 各先進
VFP Createobject("excel.application")
如何 插入 => 圖案 => 橢圓 => 格式化圖案 => 透明 => 100%
做出來的成果 如附件 如可控制顏色更佳
感恩 |
|
| 回頂端 |
|
 |
perry
註冊時間: 2014-07-20
文章: 203
第 2 樓
|
| 發表於: 星期四 一月 28, 2016 11:55 am 文章主題: |
|
|
直接用小畫家畫一個透明的橢圓型JPG
xlapp=crea('excel.application')
xlapp.workbooks.open('d:\test\t1.xls')
xlsheet=xlapp.workbooks(1).sheets(1)
for i=1 to n
jpg_top=basictop+(i-1)*jpg_height
XLSheet.Shapes.AddPicture(jpg_file,.T.,.T.,jpg_left,jpg_top,jpg_width,jpg_height)
next
用這種方式比較快!! |
|
| 回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03
文章: 228
來自: 台北市
第 3 樓
|
| 發表於: 星期四 一月 28, 2016 4:19 pm 文章主題: |
|
|
感謝 Perry 先進
後學 試試 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期四 一月 28, 2016 5:18 pm 文章主題: |
|
|
2樓的方法正確,
但會被left,top 整到.
這是excel 的問題,座標計算方式超天才
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
perry
註冊時間: 2014-07-20
文章: 203
第 5 樓
|
| 發表於: 星期四 一月 28, 2016 5:26 pm 文章主題: |
|
|
抓相對儲存格的
XM='G'+ALLT(STR(YJ+7))+':K'+ALLT(STR(YJ+11))
jpg_left=XLSheet.RANGE(XM).Left
jpg_width=XLSheet.RANGE(XM).Width
jpg_top=XLSheet.RANGE(XM).Top
jpg_height=XLSheet.RANGE(XM).Height |
|
| 回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03
文章: 228
來自: 台北市
第 6 樓
|
| 發表於: 星期五 一月 29, 2016 9:04 am 文章主題: |
|
|
感謝 Syntech 大師的開通 &
Perry 先進 再次的指導 |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
