i = ThisWorkbook.Path & "\" & NewRef & ".jpg"
X = Dir(ThisWorkbook.Path & "\" & NewRef & ".jpg")
If X <> "" Then
Set rngs = Range(Cells(61, 2), Cells(61, 19))
ActiveSheet.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height
Else
End If
謝謝~~作者: ikboy 時間: 2020-9-26 09:40
建議增加宣告:
Dim NewPicture as Object
複製代碼
i = ThisWorkbook.Path & "\" & NewRef & ".jpg"
X = Dir(ThisWorkbook.Path & "\" & NewRef & ".jpg")
Sub test()
Dim rngs As Range
Set rngs = [B61:S61]
With ActiveSheet.Shapes("圖片 1")
.LockAspectRatio = True
If .Width >= .Height Then .Width = rngs.Width - 4
If .Height >= .Width Then .Height = rngs.Height - 4
If .Width > rngs.Width - 4 Then .Width = rngs.Width - 4
If .Height > rngs.Height - 4 Then .Height = rngs.Height - 4
.Left = rngs.Left + (rngs.Width - .Width) / 2
.Top = rngs.Top + (rngs.Height - .Height) / 2
End With
End Sub