وعليكم السلام ورحمة الله وبركاته ...... أذا كان تصغير الصورة داخل النموذج ... جرب هذا الكود
Dim intWidth As Integer
Dim intHeight As Integer
With Me![FormSub].Form![formsubsub].Form![Image3]
intWidth = .Width
intHeight = .Height
.Width = intWidth / 1.05
.Height = intHeight / 1.05
.SizeMode = acOLESizeZoom
End With
DoEvents