تحريك الصورة لخلية معينة MovePicture

بسم الله الرحمن الرحيم

اضع لكم الان مثال لتحريك صورة الى نطاق معين

الكود المستخدم في المثال

 Sub MovePicture()  
 Dim ws As Worksheet  
 Dim rng As Range  
 Set ws = Sheets("Sheet1")  
 Set rng = ws.Range("B2:C10")  
 With ws.Shapes("Picture 1")  
 .LockAspectRatio = msoFalse  
 .Top = rng.Top  
 .Left = rng.Left  
 .Height = rng.Height  
 .Width = rng.Width  
 End With  
 End Sub  

تحميل المثال من هنا

ياسر العربي

شارك المقال

شاركه على فيسبوكشاركه على جوجل+