- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 55
- 點名
- 69
- 作業系統
- Windows 10
- 軟體版本
- OFFICE 2019
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2021-1-28
- 最後登錄
- 2024-12-23
|
3#
發表於 2024-12-17 23:53
| 只看該作者
大概是這串代碼
If AOI_NO <> 0 Then
FullDate = AOIDateTime(RowIndex, 1)
Img = Format(FullDate, "YYYYMMDDHHMMSS-") & AOILocation(RowIndex, 1) & "-" & Right(AOIBoard(RowIndex, 1), 1) & ".jpg"
Url = IP(AOI_NO) & "\" & Format(FullDate, "YYYY") & "\" & Format(FullDate, "MM") & "\" & Format(FullDate, "YYYYMMDD") & "\" & Img
'MsgBox "URL:" & vbCrlf & Url
Set RightCell = Cell.Offset(, 1)
If Dir(Url, vbDirectory) <> vbNullString Then
Set Pic = RightCell.Parent.Pictures.Insert(Url)
Pic.ShapeRange.PictureFormat.Contrast = 0.63
Pic.ShapeRange.PictureFormat.Brightness = 0.63 |
|
