VFP 愛用者社區

[nmellb]

請教各位先進,vba代碼產生圖片,
Pictures.Insert 可依儲存格插入圖片,
但因office 2003 和office 2010的圖片檔連結路徑問題,
改成ActiveSheet.Shapes.AddPicture 方式,但需計算X,Y軸,
如果先將圖片Pictures.Insert ,如何獲得X,Y軸,再將圖片刪除,
再ActiveSheet.Shapes.AddPicture圖,可以教我方法嗎?
爬了好多文就是搞不懂~

-----
JPG_ADD="D"+ALLTRIM(STR(L+2))
MJPG=alltrim(JPG) '資料庫JPG欄位,圖片路徑
MYEXCEL.Range("&JPG_ADD").Select
MYEXCEL.ActiveSheet.Pictures.Insert("&MJPG").Select
-----

[ckp6250]

[nmellb]

需要的是ActiveSheet.Shapes.AddPicture 方式

[syntech]

-------
oSheet.Shapes.AddPicture(cFileName, lLinkToFile, lSaveWithDocument,

nLeft, nTop, nWidth, nHeight)

cFileName
Character
The fully pathed filename of the picture.

lLinkToFile
Logical
Indicates whether to link the picture to the file from which it was created or to create a copy inside the document.

lSaveWithDocument
Logical
Indicates whether to save the linked picture with the file or to store only the link information in the document. This argument must be True if lLinkToFile is False.

nLeft,

nTop
Numeric
The position (in points) of the upper-left corner of the picture, measured from the upper-left corner of the spreadsheet.

nWidth,

nHeight
Numeric
The width and height of the picture, in points.

--------
EX:
LogoFile = "C:\COMPANY\LOGO2.JPG"
OleEXCEL.ActiveWorkbook.Sheets(1).Shapes.AddPicture(LogoFile, .T., .T., 0, 15, 72, 72)


但你用shape 物件貼圖,位置是"浮"在整個sheet上面.
所以你要自己算 xy,
excel 很機車,
畫面上有好幾種單位,
shape 的 xy 單位用的是 point,

http://www.dotblogs.com.tw/larrynung/archive/2012/05/27/72424.aspx

pixels = point * 96 / 72

point = pixel * 72 / 96


所以你要從column及row的寬高合計,轉成POINT,
才是你shape的 xy值

[syntech]

最後,

你會發現 公式都對,但是圖貼出來的位置就是差一點.
(還好,誤差不大)

m$ ,真是搞不懂你呀.

[ckp6250]

搞這麼複雜做什麼呢?
是要做浮水印嗎?

否則,指定一個儲存格,貼到那個格子去,
不行嗎?

[syntech]

依格子貼圖,圖的位置就被格子綁住.
也連帶會綁住整個sheet,
因為會為了在某個cell貼圖而調整整個版面.

[nmellb]

不是做浮水印,是因為在vfp 6 ,pictures.insert的語法,
轉出office 2003 excel,圖片在本地電腦和傳給客戶都沒有問題,
但另一台電腦office 2010版本,轉出的圖片發給客戶變成了連結,
才爬文爬了好久,說用addpicture方式,但圖片位置整個都算不準了,
所以來問問先進~但...問題還是沒有好的解決方式~

[perry]

試看看!!