انتقل إلى المحتوى الرئيسي

كيفية استخراج الصور من التعليقات في Excel؟

في Excel ، يمكنك إدراج صورة في التعليق بأسهل ما يمكن ، ولكن هل فكرت يومًا في استخراج الصور من مربعات التعليق إلى خلايا أو في مجلد معين؟ في هذا المقال سوف أتحدث عن كيفية استخراج الصور من التعليقات.

استخراج وحفظ الصور من التعليقات في مجلد مع وظيفة حفظ باسم

استخراج الصور من التعليقات إلى الخلايا باستخدام رمز VBA


السهم الأزرق الحق فقاعةاستخراج وحفظ الصور من التعليقات في مجلد مع وظيفة حفظ باسم

إذا كنت ترغب في استخراج الصور من التعليقات وحفظها في مجلد ، فيرجى القيام بما يلي:

1. انسخ الورقة التي تحتوي على التعليقات بالصور التي تريد حفظها في مصنف جديد فارغ.

doc استخراج الصورة من التعليق 1

2. ثم انقر فوق قم بتقديم > حفظ باسم لحفظ هذا المصنف الجديد باسم صفحة على الإنترنت التنسيق في مجلد محدد ، انظر الصورة:

doc استخراج الصورة من التعليق 2

3. ثم اضغط حفظ زر لحفظ الملف ، ثم انتقل إلى المجلد المحدد لعرض الصور المحفوظة ، ويتم إنشاء ملفين في المجلد ، أحدهما ملف html ، والآخر عبارة عن مجلد يحتوي على جميع الصور والملفات الأخرى ، انظر لقطة الشاشة:

doc استخراج الصورة من التعليق 3


السهم الأزرق الحق فقاعةاستخراج الصور من التعليقات إلى الخلايا باستخدام رمز VBA

إذا كنت ترغب في استخراج الصور من التعليقات إلى الخلايا كما هو موضح في لقطة الشاشة التالية ، هنا ، يمكنني إنشاء رمز VBA لك ، يرجى القيام بذلك على النحو التالي:

doc استخراج الصورة من التعليق 4

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

كود فبا: استخراج الصور من التعليقات في الخلايا:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم استخراج جميع صور التعليقات الموجودة في ورقة العمل الحالية في خلايا العمود التالي ، انظر الصورة:

doc استخراج الصورة من التعليق 4

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola! Muchisimas gracias por el aporte. Tengo un problema, a veces funciona y a veces no extrae las fotos .Por que puede ser si es la misma macro?
This comment was minimized by the moderator on the site
Thank you!! I had previously inserted pictures into comments for a document and then deleted the pictures only to have someone ask me for copies of only the pictures. This was very straightforward and saved me. Thanks again!
This comment was minimized by the moderator on the site
Hello,
Very interesting post. Thanks a lot.

But I do not see how to use it to use the picture for a button of my CommandBar. Let me explain.

I want to share my Excel sheets without sending separatly images for buttons as jpg files (.Picture = LoadPicture(ImageFile).

So I want to hide the images in some hidden cells or in some comments.
No issue to hide the images.
But I do not succeed to get them afterward to initialize my buttons.

Any idea for this ?


Thanks for your time.
Brice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations