كيف يمكنك توسيع نطاق كائن PictureLink في Excel 2010

Question

في Excel 2007 ، من الممكن توسيع نطاق كائن PictureLink (تم إنشاؤه باستخدام أداة الكاميرا) باستخدام رمز VBA التالي.

With ActiveWorkbook.Sheets(sht).Pictures(name)
    .ShapeRange.ScaleWidth scaleValue, msoTrue
    .ShapeRange.ScaleHeight scaleValue, msoTrue
    .top = top
    .left = left
End With

يضع هذا الرمز الصورة بشكل صحيح في عام 2010 ، ولكن يتم تجاهل ScaleValue. وثائق Excel 2010 غير مكتملة في هذا الموضوع. نفس الرمز يعمل بشكل جيد في Excel 2007.

Answer 1

في Excel 2010 ، بشكل مثير للدهشة ، فإن وضع ScaleValue إلى 75 ٪ مما هو عليه في Excel 2007 ، يقوم بالخدعة. لذلك ستحتاج إلى إنشاء اختبار رمز VBA للتطبيق.