كيف يمكن استخراج الصور من التعليقات في Excel؟
في Excel، يمكنك إدراج صورة في التعليق بسهولة تامة، ولكن هل فكّرت يومًا في استخراج الصور من مربعات التعليقات ووضعها في خلايا أو حفظها في مجلد معيّن؟ في هذه المقالة، سأوضح لك كيفية استخراج الصور من التعليقات.
استخراج وحفظ الصور من التعليقات في مجلد باستخدام وظيفة «حفظ باسم»
استخراج الصور من التعليقات إلى الخلايا باستخدام كود VBA
استخراج وحفظ الصور من التعليقات في مجلد باستخدام وظيفة «حفظ باسم»
إذا كنت ترغب في استخراج وحفظ الصور من التعليقات في مجلد، فالرجاء اتباع الخطوات التالية:
1. انقل الورقة التي تحتوي على التعليقات المرفقة بها صور والتي ترغب في حفظها إلى مصنف جديد فارغ.
2. ثم انقر علىملف > حفظ باسملحفظ ورقة العمل هذه كملف جديد بصيغةصفحة ويبفي مجلد معيّن، كما هو موضح في لقطة الشاشة التالية:
3. بعد ذلك، انقر على زرحفظلحفظ الملف، ثم انتقل إلى المجلد المعيّن لعرض الصور المحفوظة. سيتم إنشاء ملفين في المجلد: أحدهما ملف HTML، والآخر مجلد يحتوي على جميع الصور والملفات الأخرى، كما هو موضح في لقطة الشاشة التالية:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
استخراج الصور من التعليقات إلى الخلايا باستخدام كود VBA
إذا كنت ترغب في استخراج الصور من التعليقات إلى الخلايا كما يظهر في لقطة الشاشة التالية، فيمكنني إعداد كود VBA خاص بك. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذة الوحدة النمطية.
كود VBA: استخراج الصور من التعليقات إلى الخلايا:
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 لتشغيل هذا الكود، وستُستخرج جميع صور التعليقات في ورقة العمل الحالية إلى خلايا العمود التالي، كما هو موضح في لقطة الشاشة التالية:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل