كيفية استخراج الارتباطات التشعبية من صور متعددة في Excel؟
لنفترض أن لديك قائمة بالصور في ورقة عمل ، وتحتوي كل صورة على ارتباط تشعبي ، الآن ، تريد استخراج عناوين الارتباط التشعبي الحقيقية من هذه الصور إلى خلاياها التالية كما هو موضح في لقطة الشاشة التالية. بالطبع ، يمكنك نسخ عنوان الارتباط التشعبي من ملف تحرير الارتباط التشعبي مربع واحدًا تلو الآخر ، ولكن هذا سيستغرق وقتًا طويلاً إذا كانت هناك حاجة لاستخراج ارتباطات تشعبية متعددة. في هذه المقالة ، سأقدم بعض الطرق لحل هذه المهمة بسرعة وسهولة في Excel.
استخرج الارتباطات التشعبية من صور متعددة باستخدام كود VBA
استخرج الارتباطات التشعبية من صور متعددة باستخدام كود VBA
يمكن أن يساعدك رمز VBA التالي في استخراج العناوين الحقيقية من الصور ذات الروابط التشعبية المتعددة في وقت واحد ، يرجى القيام بذلك خطوة بخطوة:
1. اضغط باستمرار على ALT + F11 في Excel لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.
كود فبا: استخراج عناوين حقيقية من عدة صور ذات ارتباط تشعبي
Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
Dim xSh As Shape
Dim xScreen As Boolean
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xSh In ActiveSheet.Shapes
If xSh.Type = msoPicture Then
On Error Resume Next
Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
On Error GoTo 0
End If
Next
Application.ScreenUpdating = xScreen
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وقد تم استخراج جميع عناوين الارتباطات التشعبية في الخلايا المقابلة بجانب الصور ، انظر الصورة:
ملاحظات: سيقوم هذا الرمز باستخراج العناوين الحقيقية من جميع الصور في ورقة العمل الحالية.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!