- 帖子
- 353
- 主題
- 5
- 精華
- 0
- 積分
- 386
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-5-4
 
|
回復 1# color790
例如貼到A1:C3
set 儲存格範圍 = range("a1:c3")
sheets("工作表").Shapes.AddPicture 完整圖片路徑, False, True, 儲存格範圍.Left, 儲存格範圍.Top, 儲存格範圍.Width, 儲存格範圍.Height
另外補充
若用框線框選的範圍
可用if 判斷
rng.Borders(xlEdgeLeft).LineStyle=1
rng.Borders(xlEdgeTop).LineStyle=1
rng.Borders(xlEdgeRight).LineStyle=1
rng.Borders(xlEdgeBottom).LineStyle=1
搭配迴圈與offset 找出框線的左上右下
搭配放圖的左,上,寬,長 (用減法求寬長)
框線多大 圖就能自適應 不需要合併儲存格
關於用wait 也不一定有效 可依據電腦效能調整等待時長
或許放圖片是異步處理 或者 等待任務堆來不及跟上 造成VB單線程卡住
當然也不排除 是否還有其他小bug |
|
發表於 2024-1-11 15:52
| 