PowerPoint VBA لكسر الروابط في كائن OLEFormat

Question

لدي شريحة PowerPoint 2007 مع كائنات Excel المضمنة. أريد الوصول إلى علامة التبويب الورقة 1 وكسر جميع الروابط. كنت أحاول نسخ ولصق حسب القيمة، لكنني عالق، على الرغم من أن الرمز يعمل، فلا يفعل شيئا. أي مساعدة موضع تقدير كبير.

dim osl كما الشريحة خافت OSHET ككائن قاتمة ppapp كما powerpoint.application dim pppres كما powerpoint.presentation

لكل OSL في ActiveResentation.slides لكل OSH في OSL.Shapes

giveacodicetagpre.

التالي نهاية الفرعية

Answer 1

تم تحديثه / تم تحديثه ... تخطي خط تحديث التطبيق، جرب مثل ذلك بدلا من ذلك:

giveacodicetagpre.

أولا، إما تحديد lxpastevalues ثابتا طالما طالما= -4163 أو استبدال xlpastevalues مع -4163 في التعليمات البرمجية أعلاه.