Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
حساب جديد  \/ 
x

or

صور Excel: إدراج أو تغيير أو حذف عدة صور أو صور في Excel

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

جدول المحتويات:

1. أدخل الصور أو الصور في ورقة العمل من الكمبيوتر أو الويب أو OneDrive

2. قفل الصور أو الصور في خلية Excel

3. إدراج عدة صور أو صور في Excel

4. أدخل عدة صور أو صور تطابق أسمائها في الخلايا

5. إدراج أو عرض الصور أو الصور من عناوين المواقع

6. إدراج أو عرض الصور أو الصور من مسارات الملفات

7. أدخل صورة أو صورة في تعليق

8. أدخل صورة أو صورة في رأس أو تذييل الصفحة

9. أدخل نفس الصورة أو الصورة في أوراق عمل متعددة

10. أدخل صورة أو صورة خلف محتويات الخلية

11. أدخل نطاق من الخلايا على هيئة صورة أو تنسيق صورة في Excel

12. أدخل صورة أو صورة بناءً على قيمة الخلية ديناميكيًا

13. تصدير أو حفظ كافة الصور أو الصور من ملف Excel

14. إعادة تسمية أسماء الصور في مجلد بناءً على قائمة الخلايا في Excel

15. تكبير أو تصغير الصورة عند النقر عليها

16. قم دائمًا بتحريك الصورة عند التمرير في ورقة العمل

17. حذف الصور أو الصور من الورقة النشطة / مجموعة من الخلايا


قم بإدراج الصور أو الصور في ورقة العمل من الكمبيوتر أو الويب أو OneDrive

تدعم جميع إصدارات Excel إدراج الصور أو الصور من الكمبيوتر ، ولكن إذا كنت تريد إدراج الصور من الويب أو OneDrive ، فيجب أن يكون لديك Excel 2013 والإصدارات الأحدث.

أدخل الصور أو الصور من الكمبيوتر

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

1. في ورقة العمل ، انقر حيث تريد إدراج الصور.

2. ثم اضغط إدراج > صور > هذا الجهاز، انظر لقطة الشاشة:

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

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


قم بإدراج الصور أو الصور من الويب أو OneDrive

إذا كان لديك Excel 2013 أو الإصدارات الأحدث ، فيمكنك إدراج الصور من الويب أو One Drive ، يرجى القيام بذلك على النحو التالي:

1. في ورقة العمل ، انقر حيث تريد إدراج الصور.

2. ثم اضغط إدراج > صور > الصور على الانترنت، انظر لقطة الشاشة:

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

4. بعد ذلك ، حدد الصور التي تريدها ، ثم انقر فوق "نعم" إدراج زر. بعد إدخال الصور ، يرجى تغيير حجم الصور أو ضبطها على الموضع الذي تريده.

نصائح:

1. للبحث عن بعض الصور المحددة ، يمكنك تصفية الصور التي تم العثور عليها حسب الحجم أو النوع أو التخطيط أو اللون حسب حاجتك.

2. إلى جانب إدراج الصور من بحث Bing ، يمكنك أيضًا إدراج الصور المخزنة على OneDrive الخاص بك. في النافذة أدناه ، انقر فوق ون درايف في الجزء السفلي الأيسر من النافذة ، ثم حدد الصور التي تريد إدراجها.


قفل الصور أو الصور في خلية Excel

عادةً ، بعد إدراج الصور في الخلايا ، عند تغيير حجم الخلايا التي تحتوي على الصورة أو تصفيتها أو إخفائها ، لن يتم تغيير حجم الصورة أو تصفيتها مع تلك الخلية كما هو موضح أدناه العرض التوضيحي.

في هذه الحالة ، يجب قفل الصورة في الخلية ، بحيث يمكن تغيير حجمها أو تصفيتها أو إخفاؤها مع الخلية ، يرجى اتباع الخطوات التالية:

1. انقر لتحديد صورة واحدة واضغط CTRL + A لتحديد جميع الصور في ورقة العمل.

2. ثم ، انقر بزر الماوس الأيمن فوق صورة واحدة ، وحدد الحجم والخصائص من قائمة السياق ، انظر لقطة الشاشة:

3. في الموسع تنسيق الصورة جزء تحت عقارات القسم، حدد نقل وحجم مع الخلايا الخيار ، انظر لقطة الشاشة:

4. ثم أغلق ملف تنسيق الصورة جزء. الآن ، عند تغيير حجم الخلايا أو تصفيتها أو إخفائها ، سيتم أيضًا نقل الصور أو تصفيتها أو إخفاؤها.


أدخل عدة صور أو صور في Excel

في بعض الأحيان ، قد تحتاج إلى إدراج صور متعددة في الخلايا وتغيير حجمها لتناسب حجم الخلية تلقائيًا دون تغيير حجم الصور وسحبها. هنا ، سأقدم طريقتين لحل هذه الوظيفة في Excel.

أدخل صورًا أو صورًا متعددة وقم بتغيير حجمها لتلائم الخلايا برمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على إدراج صور متعددة في الخلايا بناءً على حجم الخلية. يرجى القيام بذلك على النحو التالي:

1. اضبط حجم الخلية الذي تريد وضع الصورة فيه ، ثم حدد الخلايا.

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

3. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.

رمز فبا: أدخل صورًا متعددة بناءً على حجم الخلية

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. ثم اضغط على F5 مفتاح لتشغيل هذا الرمز. في ال فتح نافذة ، يرجى اختيار المجلد الذي يحتوي على الصور ، ثم تحديد الصور التي تريد إدراجها ، ثم النقر فوق فتح زر ، وتم إدراج جميع الصور المحددة في اختيارك بناءً على حجم الخلية. انظر لقطة الشاشة:


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

إذا لم تكن معتادًا على رمز VBA ، فيمكنك هنا استخدام ميزة الطاقة - استيراد الصور of كوتولس ل إكسيل. باستخدام هذه الميزة المفيدة ، يمكنك استيراد صور متعددة إلى الخلايا بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. انقر كوتولس بلس > استيراد و تصدير > استيراد الصور، انظر لقطة الشاشة:

2. في خرجت استيراد الصور الحوار ، يرجى القيام بالعمليات التالية:

  • حدد ترتيب الصور من القائمة المنسدلة لأمر الاستيراد ، يمكنك الاختيار ملء عمودي خلية بعد خلية or تعبئة أفقية خلية بعد خلية;
  • ثم اضغط أضف لتحديد ملفات الصور أو المجلد لإضافة الصور إلى ملف قائمة الصور;
  • انقر على حجم الاستيراد زر ، في استيراد حجم الصورة في مربع الحوار ، حدد ملف مطابقة حجم الخلية الخيار.

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

4. ثم اضغط OK زر ، تم إدراج جميع الصور المحددة لتتناسب مع حجم الخلايا المحددة كما هو موضح أدناه لقطة الشاشة:


أدخل عدة صور أو صور تطابق أسمائها في الخلايا

إذا كانت لديك قائمة بأسماء المنتجات في عمود واحد ، والآن ، فأنت بحاجة إلى إدراج الصور المقابلة لها في عمود آخر كما هو موضح أدناه لقطة الشاشة. إدخال الصور ، ثم سحبها إلى كل موضع واحدًا تلو الآخر سيضيع الكثير من الوقت ، هذا القسم ، سأتحدث عن بعض الطرق السريعة.

أدخل عدة صور أو صور تطابق أسمائها برمز VBA

يمكن أن يساعدك رمز VBA التالي على إدراج صور متعددة تطابق أسمائها بسرعة ، يرجى القيام بذلك على النحو التالي:

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

2. انقر Inserر> وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.

كود فبا: أدخل عدة صور تطابق أسمائهم

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

ملاحظة: في الكود أعلاه ، يمكنك تغيير ارتفاع الصورة وعرضها داخل البرامج النصية ".ShapeRange.Height = 60"،".ShapeRange.Width = 60"لحاجتك.

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

4. ثم انقر فوق OK زر ، يظهر مربع موجه ، يرجى تحديد الخلايا التي تحتوي على أسماء الصور ، انظر لقطة الشاشة:

5. استمر في النقر OK زر ، ويتبع مربع موجه آخر ، يرجى تحديد الخلايا التي تريد إخراج الصور ، انظر لقطة الشاشة:

6. أخيرًا ، انقر فوق OK، وتم إدراج الصور في الخلايا بناءً على أسمائها في وقت واحد ، انظر لقطة الشاشة:


أدخل عدة صور أو صور تطابق أسمائها بميزة مفيدة

إذا كان لديك كوتولس ل إكسيل، بما لديها تطابق استيراد الصور ميزة ، يمكنك إدراج الصور بناء على أسماء الصور بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس بلس > استيراد و تصدير > تطابق استيراد الصور، انظر لقطة الشاشة:

2. في خرجت تطابق استيراد الصورة مربع الحوار ، يرجى القيام بالعمليات التالية:

  • حدد ترتيب الصور من القائمة المنسدلة لأمر الاستيراد ، يمكنك الاختيار ملء عمودي خلية بعد خلية or تعبئة أفقية خلية بعد خلية;
  • ثم ، من نطاق المباراة مربع نص ، حدد أسماء الصور التي تريد إدراج الصور بناءً عليها ؛
  • ثم انقر فوق أضف لتحديد ملفات الصور أو المجلد لإضافة الصور إلى ملف قائمة الصور;
  • بعد ذلك ، يجب عليك تحديد حجم الصورة. من فضلك اضغط حجم الاستيراد زر ، في استيراد حجم الصورة في مربع الحوار ، حدد حجم صورة واحدًا حسب حاجتك.

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

4. ثم اضغط OK، وجميع الصور التي تم إدراجها في الأسماء المتطابقة مع قيم الخلية ، انظر لقطة الشاشة:


أدخل أو اعرض صورًا أو صورًا من عناوين URL

هل سبق لك أن حاولت عرض الصور أو إدراجها من قائمة عناوين URL؟ قد لا توجد طريقة أخرى جيدة لإدراج الصور مباشرة في Excel ، ولكن يمكنك تطبيق كود أو أداة خارجية للتعامل معها.

قم بإدراج أو عرض الصور أو الصور من عناوين URL باستخدام كود VBA

يرجى تطبيق رمز فبا التالي لإدراج الصور بناءً على قائمة عناوين URL.

1. أولاً ، اضبط حجم الخلية المجاورة التي تريد تحديد موقع الصور.

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

3. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.

رمز فبا: إدراج الصور من قائمة عناوين المواقع

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

المكونات: في الكود أعلاه ، A2: A5 هو نطاق الخلايا الذي يحتوي على عناوين URL التي تريد استخراج الصور منها ، يجب عليك تغيير مراجع الخلية حسب حاجتك.

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


أدخل أو اعرض صورًا أو صورًا من عناوين URL بميزة مذهلة

كوتولس ل إكسيل لديه ميزة مذهلة - إدراج صور من المسار (URL). باستخدام هذه الأداة ، سيتم استخراج الصور المقابلة من عناوين URL بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. انقر كوتولس > إدراج > إدراج صور من المسار (URL)، انظر لقطة الشاشة:

2. في خرجت إدراج صور من المسار (URL) مربع الحوار ، يرجى ضبط العمليات التالية:

  • حدد قائمة خلايا URL ومجموعة من الخلايا حيث تريد وضع الصور ؛
  • حدد حجم الصور الذي تريده من ملف حجم الصورة والقسم الخاص به.

3. ثم انقر فوق Ok ، وتم استخراج جميع الصور من عناوين URL ، انظر لقطة الشاشة:


قم بإدراج أو عرض الصور أو الصور من مسارات الملفات

إذا كنت بحاجة إلى إدراج الصور من مسار الملف ، فإليك أيضًا الحلول المناسبة لك.

قم بإدراج أو عرض الصور أو الصور من مسارات الملفات باستخدام كود VBA

يمكنك تطبيق رمز VBA التالي لإدراج الصور بناءً على مسارات ملف الصورة.

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

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

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

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

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

4. ثم اضغط OK الزر ، تم عرض جميع الصور المستندة إلى مسارات الملفات في العمود التالي كما هو موضح في لقطة الشاشة التالية:


قم بإدراج أو عرض الصور أو الصور من مسارات الملفات بميزة مذهلة

كوتولس ل إكسيلالصورة إدراج صور من المسار (URL) يمكن أن تساعدك الميزة أيضًا في عرض الصور ذات الصلة من مسار الملف.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس > إدراج > إدراج صور من المسار (URL)، في مربع الحوار المنبثق ، يرجى تحديد نطاق مسار الملف ، ونطاق إخراج الصور ، وحجم الصورة كما تريد ، انظر لقطات الشاشة:

2. بعد تحديد الخيارات ، انقر فوق Ok زر ، سيتم إدراج الصور في الخلايا المحددة مرة واحدة ، انظر الصورة:


أدخل صورة أو صورة في تعليق

قد يكون من السهل إدراج صورة في خلية ، ولكن ، في بعض الأحيان ، قد ترغب في إدراج صورة في مربع تعليق ، كيف تتعامل مع هذه المهمة؟

1. حدد وانقر بزر الماوس الأيمن فوق الخلية حيث تريد إدراج تعليق ، ثم اختر أدخل التعليق، انظر لقطة الشاشة:

نصائح: إذا قمت بإدراج تعليق ، يرجى تجاهل هذه الخطوة.

2. ثم قم بتمرير المؤشر على حواف مربع التعليق ، حتى ترى المؤشر يتحول إلى أيقونة ذات أربعة أسهم. وبعد ذلك ، انقر بزر الماوس الأيمن واختر تنسيق التعليق الخيار ، انظر لقطة الشاشة:

3. في خرجت تنسيق التعليق مربع الحوار، انقر فوق الألوان والخطوط ثم حدد تأثيرات التعبئة من اللون القائمة المنسدلة ، انظر لقطة الشاشة:

4. ثم في ما يلي تأثيرات التعبئة مربع الحوار، انقر فوق صورة علامة التبويب وانقر فوق حدد صورة زر لاختيار صورة واحدة تريد إدراجها ، انظر لقطة الشاشة:

5. ثم انقر فوق OK > OK، تم إدراج الصورة في مربع التعليق ، انظر الصورة:


أدخل صورة أو صورة في الرأس أو التذييل

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

1. قم بتنشيط ورقة العمل حيث تريد إدراج الصورة في الرأس أو التذييل.

2. ثم اضغط إدراج > تذييل الرأس، وسوف تذهب إلى أدوات الرأس والتذييل التبويب. انظر لقطة الشاشة:

3. لإدراج صورة في الرأس أو التذييل ، الرجاء النقر فوق مربع الرأس أو التذييل الأيسر أو الأيمن أو الأوسط حسب حاجتك ، ثم انقر فوق صورة تحت تصميم علامة التبويب ، انظر لقطة الشاشة:

4. ثم ، أ إدراج الصور ستظهر نافذة منبثقة ، يرجى اختيار الصورة التي تريد إضافتها والنقر فوق "إدراج". الآن ، أ &[صورة] سيظهر العنصر النائب في مربع الرأس أو التذييل. انقر في أي مكان خارج مربع الرأس أو التذييل ، وسيتم عرض الصورة المدرجة كما هو موضح أدناه:

نصائح: في بعض الأحيان ، قد تجد أن الصورة تتداخل مع منطقة البيانات في ورقة العمل كما هو موضح أدناه لقطة الشاشة. يحدث هذا لأن الصورة كبيرة جدًا ولن يتم تغيير حجمها لتلائم مربع مقطع الرأس أو التذييل تلقائيًا.

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

1. انقر في قسم الرأس أو التذييل حيث توجد الصورة ، ثم انقر فوق تنسيق الصورة تحت تصميم علامة التبويب ، انظر لقطة الشاشة:

2. في تنسيق الصورة مربع الحوار ، تحت المقاس علامة التبويب ، يرجى ضبط حجم الصورة لتناسب مربع قسم رأس أو تذييل الصفحة ، انظر الصورة:

3. ثم انقر فوق OK، سوف تحصل على النتيجة التي تحتاجها.


أدخل نفس الصورة أو الصورة في أوراق عمل متعددة

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

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

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

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

Sub InsertImagetoallsheets()
'Updateby Extendoffice
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\AddinTestWin10\Desktop\my images\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

ملاحظة: في الكود أعلاه ، C: \ Users \ AddinTestWin10 \ Desktop \ my images \ logo.png هو مسار واسم الصورة ، و A1 in النطاق ("A1") هي الخلية التي تريد إدراج الصورة فيها ، يرجى تغييرها حسب حاجتك.

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


أدخل صورة أو صورة خلف محتويات الخلية

لجعل بيانات ورقة العمل أكثر جمالا وجاذبية ، يمكنك استخدام صورة كخلفية. لإدراج صورة خلف محتويات الخلية ، إليك بعض الطرق التي يمكن أن تفيدك.

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

1. افتح ورقة العمل حيث تريد إدراج صورة الخلفية.

2. ثم اضغط تخطيط الصفحة > خلفيّة، انظر لقطة الشاشة:

3. في خرجت إدراج الصور نافذة ، يرجى اختيار صورة واحدة من جهاز الكمبيوتر أو موقع الويب أو OneDrive حسب حاجتك ، انظر لقطة الشاشة:

4. الآن ، تم إدراج الصورة في ورقة العمل كخلفية كما هو موضح أدناه لقطة الشاشة:

نصائح: لحذف صورة الخلفية ، فقط انقر تخطيط الصفحة > حذف الخلفية. انظر لقطة الشاشة:


أدخل صورة أو صورة شفافة خلف محتويات الخلية

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

1. انقر إدراج > الأشكال، وحدد شكل مستطيل ، انظر الصورة:

2. ثم ارسم شكلاً بالحجم الذي تريده في ورقة العمل النشطة.

3. بعد رسم الشكل ، أ أدوات الرسم يتم عرض علامة التبويب في الشريط ، ثم انقر فوق شكل > مخطط الشكل > لا مخطط، انظر لقطة الشاشة:

4. وبعد ذلك ، انقر بزر الماوس الأيمن فوق الشكل واختر تنسيق الشكل من قائمة السياق ، انظر لقطة الشاشة:

5. في الموسع تنسيق الشكل جزء تحت ملء خط علامة التبويب ، قم بالعمليات التالية:

  • تحت شغل القسم، حدد تعبئة الصورة أو الملمس الخيار.
  • انقر إدراج زر من مصدر الصورة، واختر صورة واحدة تريد إدراجها ؛
  • بعد ذلك ، اضبط شفافية الصورة حسب حاجتك من ملف الشفافيةقسم ذ.

6. وبعد ذلك ، سترى الشكل المليء بالصور يبدو وكأنه صورة خلفية كما هو موضح في لقطة الشاشة أعلاه.

ملاحظة: بعد إدخال هذا النوع من صور الخلفية ، لن يُسمح لك بإدخال أي نص داخل نطاق الصورة.


أدخل صورة أو صورة شفافة خلف محتويات الخلية كعلامة مائية

كلتا الطريقتين المذكورتين أعلاه لها حدودها الخاصة ، فالطريقة الأولى لا يمكن أن تغير شفافية الصورة ، والطريقة الثانية لا تسمح بإدخال نص في الخلايا داخل منطقة الصورة. لحل هذه المشاكل ، كوتولس ل إكسيلالصورة إدراج علامة مائية ميزة يمكن أن تفعل لك معروفا.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس > إدراج > إدراج علامة مائية، انظر لقطة الشاشة:

2. في خرجت إدراج علامة مائية مربع الحوار، حدد صورة العلامة المائية، ثم انقر فوق حدد صورة زر لاختيار صورة واحدة تريد إدراجها ، ثم حدد مقياس الصورة وتحقق من خيار Washout ، انظر لقطة الشاشة:

3. ثم اضغط Ok ، تم إدراج الصورة في ورقة العمل كصورة خلفية.


أدخل نطاقًا من الخلايا على هيئة صورة أو تنسيق صورة في Excel

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

قم بإدراج نطاق من الخلايا على هيئة صورة أو تنسيق صورة باستخدام ميزة "نسخ كصورة"

في Excel ، يمكنك استخدام ملحق نسخ كصورة وظيفة لنسخ وإدراج نطاق من الخلايا كصورة.

1. حدد نطاق الخلايا التي تريد نسخها وإدراجها كصورة.

2. ثم اضغط الصفحة الرئيسية > نسخ > نسخ كصورة، انظر لقطة الشاشة:

3. في خرجت نسخ الصورة الحوار، حدد صورة من شكل القسم ، انظر لقطة الشاشة:

4. ثم اضغط OK زر ، الآن ، ما عليك سوى الضغط CTRL + V للصق الصورة في أي مكان في المصنف.


قم بإدراج نطاق من الخلايا على هيئة صورة أو تنسيق صورة باستخدام أداة الكاميرا

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

أولاً ، يجب عليك عرض ملف الكاميرات والتصوير على الشريط ، ثم قم بتطبيقه.

1. انقر تخصيص شريط أدوات الوصول السريع رمز ، ثم انقر فوق المزيد من الأوامر الخيار ، انظر لقطة الشاشة:

2. في فتح خيارات إكسيل مربع الحوار ، يرجى القيام بالعمليات التالية:

  • اختار جميع الأوامر من اختر الأوامر من اسقاط؛
  • ثم قم بالتمرير للتحديد الكاميرات والتصوير من مربع القائمة ؛
  • ثم انقر فوق أضف زر لإضافة هذه الأداة إلى ملف تخصيص شريط أدوات الوصول السريع;
  • أخيرًا ، انقر فوق OK لإغلاق مربع الحوار هذا.

3. و ال الكاميرات والتصوير تم عرض الأداة على الشريط ، انظر الصورة:

4. بعد ذلك ، حدد نطاق الخلايا الذي تريد صورة.

5. وبعد ذلك ، انقر فوق الكاميرات والتصوير أداة ، ثم انتقل إلى ورقة العمل وانقر في أي مكان ، سيتم إدراج نطاق البيانات كصورة كما هو موضح أدناه العرض التوضيحي:


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

إذا كان لديك كوتولس ل إكسيل، بما لديها مكتبة الموارد ، يمكنك حفظ البيانات المحددة في ملف مكتبة الموارد، ثم استخدمه كصورة أو نص للمستقبل كما تريد.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. حدد نطاق البيانات الذي تريد إدراجه كصورة.

2. ثم اضغط كوتولس > التنقل، انظر لقطة الشاشة:

3. في الموسع التنقل جزء، انقر فوق مكتبة الموارد رمز ، ثم انقر فوق أضف المحتوى المحدد إلى مكتبة الموارد رمز ، انظر لقطة الشاشة:

4. في إدخال مكتبة الموارد الجديدة مربع الحوار ، حدد اسمًا لهذا العنصر ، ثم حدد المجموعة التي تريد الإضافة إليها. انظر لقطة الشاشة:

5. ثم اضغط أضف زر لإضافته إلى مكتبة الموارد جزء. إذا كنت تريد إدراج هذا النطاق كصورة ، فما عليك سوى النقر فوق خلية لتحديد موقع الصورة ، ثم البحث عن العنصر المحفوظ من مكتبة الموارد جزء ، وانقر إدراج باسم > صورة (EMF) من القائمة المنسدلة للعنصر. وسيتم إدراج نطاق البيانات في الورقة كصورة ، انظر لقطات الشاشة:


أدخل صورة أو صورة بناءً على قيمة الخلية ديناميكيًا

في هذا القسم ، سأوضح لك كيفية عرض صورة معينة بناءً على قيمة الخلية. على سبيل المثال ، أريد إظهار الصورة المقابلة عندما أحدد عنصرًا معينًا من خلية منسدلة ، وعندما أختار عنصرًا آخر ، سيتم تغيير الصورة ديناميكيًا كما هو موضح أدناه العرض التوضيحي:

أدخل صورة أو صورة بناءً على قيمة الخلية ديناميكيًا باستخدام ميزة النطاق المسمى

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

1. أولاً ، يجب عليك إنشاء عمودين يحتويان على أسماء المنتجات والصور النسبية ، انظر الصورة:

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

3. في خرجت التحقق من صحة البيانات مربع الحوار ، تحت الإعدادات علامة التبويب، اختر قائمة من السماح القائمة المنسدلة ، ثم حدد الخلايا التي تريد إنشاء القائمة المنسدلة من ملف مصدر مربع النص ، انظر لقطة الشاشة:

4. انقر OK، وتم إنشاء القائمة المنسدلة بقيم الخلايا ، حدد عنصرًا واحدًا من القائمة المنسدلة ، انظر الصورة:

5. ثم اضغط الصيغ > حدد الاسم، انظر لقطة الشاشة:

6. في اسم جديد مربع الحوار ، يرجى القيام بالعمليات التالية:

  • أدخل اسمًا يسمى myimage في ملف الإسم مربع الكتابة؛
  • ثم انسخ والصق هذه الصيغة: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) في مربع النص يشير إلى.

ملاحظة: في الصيغة أعلاه:

  • الورقة 11! $ A $ 2: $ B $ 6: هي ورقة العمل والنطاق الذي يحتوي على القيم والصور التي تريد استخدامها ؛
  • الورقة 11! $ E $ 2: هي الخلية الموجودة داخل ورقة العمل حيث قمت بإنشاء القائمة المنسدلة ؛
  • الورقة 11! $ A $ 2: $ A $ 6: هي قائمة الخلايا التي أنشأت القائمة المنسدلة بناءً عليها ؛
  • الرقم المتغير 2 هو رقم العمود الذي يحتوي على الصور. إذا كانت صورك في العمود C ، يجب عليك إدخال 3.

7. ثم انقر فوق OK زر ، ثم يرجى نسخ ولصق الصورة المقابلة بناءً على قيمة الخلية في E2 من النطاق الأصلي إلى الخلية F2 ، انظر لقطة الشاشة:

8. بعد ذلك ، يرجى تحديد الصورة في الخلية F2 ، ثم إدخال هذه الصيغة = myimage (صورتي هو اسم النطاق الذي قمت بإنشائه في الخطوة 6) في شريط الصيغة ، انظر لقطة الشاشة:

9. بعد إدخال الصيغة ، اضغط على أدخل key ، والآن عند اختيار عنصر واحد من القائمة المنسدلة ، سيتم عرض صورته النسبية على الفور. انظر لقطة الشاشة:


قم بإدراج صورة أو صورة بناءً على قيمة الخلية ديناميكيًا باستخدام ميزة سهلة الاستخدام

قد تكون الطريقة المذكورة أعلاه صعبة بالنسبة لمعظمنا ، هنا ، سأقدم ميزة مفيدة - القائمة المنسدلة للصور of كوتولس ل إكسيل، باستخدام هذه الأداة المفيدة ، يمكنك إنشاء قوائم منسدلة متعددة مع صورها النسبية بعدة نقرات فقط.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. أولاً ، يجب عليك إنشاء عمودين يحتويان على أسماء المنتجات والصور ذات الصلة في ورقة العمل الخاصة بك.

2. ثم انقر فوق كوتولس > قائمة منسدلة > القائمة المنسدلة للصور، انظر لقطة الشاشة:

3. في القائمة المنسدلة للصور في مربع الحوار ، إذا قمت بإنشاء أعمدة قيم الخلايا والصور ، فيرجى تجاهل الخطوة 1 ، ثم حدد البيانات الأصلية ونطاق الصورة ونطاق الإخراج ، انظر لقطة الشاشة:

4. ثم انقر فوق Ok الزر ، تم إنشاء القوائم المنسدلة بالصور في الخلايا المحددة ، وعند تحديد عنصر من الخلية المنسدلة ، سيتم عرض الصورة المقابلة لها في الحال ، انظر العرض التوضيحي أدناه:


تصدير أو حفظ جميع الصور أو الصور من ملف Excel

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

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

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

1. انقر قم بتقديم > حفظ باسم، في حفظ باسم نافذة ، حدد مجلدًا لوضع الملفات المصدرة ، ثم اختر صفحة الويب (*. htm؛ *. html) من حفظ ك اكتب القائمة المنسدلة ، انظر لقطة الشاشة:

2. ثم انقر فوق توفير انتقل إلى المجلد المحدد ، فسترى ملفين ، أحدهما ملف تنسيق HTML ، والآخر عبارة عن مجلد يحتوي على الصور أو المخططات أو الكائنات الأخرى من المصنف. انظر لقطة الشاشة:

3. ثم يمكنك سحب الصور فقط إلى مجلد آخر حسب حاجتك.

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


تصدير أو حفظ جميع الصور أو الصور من Excel مع تغيير امتداد الملف

لحفظ جميع الصور من ملف Excel ، يمكنك أيضًا تغيير امتداد الملف إلى RAR. يرجى القيام بذلك على النحو التالي:

1. قم بتغيير امتداد الملف XLSX إلى رر كما هو موضح أدناه لقطة الشاشة:

2. بعد ذلك ، قم بفك ضغط الملف ، وسترى 3 مجلدات وملف واحد في المجلد ، انظر الصورة:

3. ثم ، انقر لفتح ملف xl المجلد ، ثم افتح ملف وسائل الإعلام المجلد ، سترى جميع الصور مخزنة هنا بدون نسخ مكررة ، انظر لقطة الشاشة:


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

إذا كان لديك كوتولس ل إكسيل، بما لديها تصدير الرسومات ميزة ، يمكنك بسرعة تصدير بعض الكائنات المحددة ، مثل الصور والمخططات والأشكال إلى تنسيق الصورة حسب حاجتك.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. انقر كوتولس بلس > استيراد و تصدير > تصدير الرسومات، انظر لقطة الشاشة:

2. في تصدير الرسومات في مربع الحوار ، قم بالعمليات التالية:

  • اختار صور الخيار من الأنواع قائمة منسدلة؛
  • حدد مجلدًا لحفظ صورك المصدرة ؛
  • ثم انقر فوق القائمة المنسدلة من ملف تنسيق التصدير لاختيار تنسيق واحد لصورك.

3. أخيرًا ، انقر فوق Ok زر ، تم حفظ جميع الصور الموجودة في المصنف الحالي في المجلد الذي حددته ، انظر لقطة الشاشة:


أعد تسمية أسماء الصور في مجلد استنادًا إلى قائمة الخلايا في Excel

إذا كان لديك الكثير من الصور في مجلد ، والآن تريد إعادة تسمية كل هذه الصور ، كيف يمكنك حل هذه المهمة بطريقة سهلة في Excel؟

في Excel ، أولاً ، يجب عليك إدراج جميع أسماء الصور القديمة في عمود ، ثم كتابة الأسماء الجديدة ، أخيرًا ، قم بتطبيق رمز VBA لاستبدال الأسماء القديمة بالأسماء الجديدة مرة واحدة. يرجى اتباع الخطوات التالية:

1. يرجى إدراج جميع أسماء الصور في قائمة الخلايا ، أو يمكنك تطبيق الكود أدناه لسرد جميع أسماء الصور في مجلد معين دون كتابتها يدويًا واحدة تلو الأخرى.

2. ثبته ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك.

3. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.

كود فبا: سرد جميع أسماء الصور من مجلد

Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

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

5. ثم اضغط OK، وآخر تسوّق سيظهر مربع الحوار ، يرجى تحديد المجلد الذي يحتوي على الصور التي تريد سرد جميع أسماء الصور ، انظر لقطة الشاشة:

6. انقر OK، تم إدراج جميع أسماء الصور في المجلد المحدد في الخلايا ، انظر لقطة الشاشة:

7. بعد ذلك ، اكتب الأسماء الجديدة التي تريدها في عمود آخر كما هو موضح أدناه لقطة الشاشة:

8. وبعد ذلك ، يمكنك تطبيق الكود أدناه لإعادة تسمية الصور ، واستمر في الضغط ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك.

9. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.

رمز فبا: إعادة تسمية ملفات متعددة في مجلد

Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

ملاحظة: في الكود أعلاه ، A: A يشير إلى قائمة أسماء الصور القديمة التي تريد إعادة تسميتها ، و B يحتوي على أسماء الصور الجديدة التي تريد استخدامها ، يمكنك تغييرها حسب حاجتك.

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

11. ثم انقر فوق OK زر ، تم استبدال جميع أسماء الصور بالأسماء الجديدة كما هو موضح أدناه لقطة الشاشة:


تكبير أو تصغير الصورة عند النقر عليها

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

لتكبير أو تصغير حجم الصورة عند النقر عليها ، يمكن أن تقدم لك الكود التالي خدمة. يرجى اتباع الخطوات التالية:

1. انقر بزر الماوس الأيمن على الصورة واختر تعيين ماكرو، انظر لقطة الشاشة:

2. ثم ، في ظهرت تعيين ماكرو مربع الحوار، انقر فوق جديد زر ، انظر لقطة الشاشة:

3. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود أدناه بين ملف فرعية و نهاية الفرعية رموز. انظر لقطة الشاشة:

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3  
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

4. ثم اضغط على Alt + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. الآن ، عند النقر فوق الصورة ، سيتم تكبيرها إلى الحجم الذي حددته ، والنقر فوقه مرة أخرى سيتقلص إلى الحجم الأصلي كما هو موضح أدناه العرض التوضيحي:


احرص دائمًا على تعويم الصورة عند التمرير في ورقة العمل

في بعض الأحيان ، قد ترغب في تحريك صورة على شاشة ورقة العمل على الرغم من قيامك بالتمرير لأعلى أو لأسفل في ورقة العمل ، بحيث يمكنك رؤية الصورة طوال الوقت. في هذا القسم ، سأقدم لك خدعة سريعة للتعامل مع هذه الوظيفة في Excel. يرجى اتباع الخطوات التالية:

1. أولاً ، أدخل الصورة التي تريد استخدامها.

2. بعد ذلك ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تحتوي على الصورة التي تريد إبقائها مرئية دائمًا ، ثم اختر عرض الرمز من قائمة السياق. في فتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ الكود أدناه والصقه في الوحدة النمطية الفارغة:

كود فبا: دائما تعويم الصورة في ورقة العمل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

ملاحظة: في هذا الرمز ، صور 1 هو اسم الصورة الذي أدخلته ، يرجى تغييره حسب حاجتك.

3. بعد ذلك ، احفظ وأغلق نافذة التعليمات البرمجية ، الآن ، عند التمرير في ورقة العمل والنقر فوق خلية ، سيتم الاحتفاظ بالصورة دائمًا في الزاوية اليمنى العليا من ورقة العمل. انظر لقطة الشاشة:


احذف الصور أو الصور من الورقة النشطة / مجموعة من الخلايا

هل لديك أي طرق سريعة لحذف جميع الصور من ورقة عمل أو نطاق من الخلايا أو مصنف حالي؟ في هذا القسم ، سأقدم بعض الطرق لحل هذه الوظيفة في Excel.

احذف الصور أو الصور من الورقة النشطة باستخدام كود VBA

لحذف الصور من ورقة العمل الحالية ، يمكن أن يساعدك رمز VBA أدناه ، يرجى القيام بذلك على النحو التالي:

1. قم بتنشيط ورقة العمل التي تحتوي على الصور التي تريد حذفها.

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

3. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة او شباك.

رمز فبا: حذف كافة الصور من ورقة العمل الحالية

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

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


احذف الصور أو الصور من نطاق من الخلايا برمز VBA

إذا كنت بحاجة إلى حذف الصور من مجموعة من الخلايا فقط ، فإليك رمز بسيط آخر يمكن أن يساعدك.

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

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

رمز فبا: حذف الصور من نطاق من الخلايا

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود أعلاه ، B4: C6 هو النطاق الذي تريد حذف الصور منه.

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


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

إذا كان لديك كوتولس ل إكسيل، بما لديها حذف الرسوم التوضيحية والكائنات الميزة ، يمكنك حذف الصور بسرعة من ورقة العمل أو بعض الأوراق المحددة أو المصنف بأكمله.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. انقر كوتولس > حذف > حذف الرسوم التوضيحية والكائنات، انظر لقطة الشاشة:

2. في فتح حذف الرسوم التوضيحية والكائنات مربع الحوار ، تحقق صور من حذف ، ثم حدد النطاق الذي تريد حذف الصور منه أسفل ينظر في القسم ، انظر لقطة الشاشة:

3. ثم اضغط Ok ، وسيتم حذف جميع الصور من ورقة العمل أو أوراق العمل المحددة أو المصنف بأكمله كما حددته.



  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات...
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم...
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    janick1980. · 27 days ago
    Good afternoon,

    Very nice page.

    Only I tried the VBA of "Insert Multiple Images Or Images That Match Their Names With VBA Code" but unfortunately it doesn't work.

    I can finish everything but unfortunately I can't get with pictures in the excel.

    Any idea what the problem could be here?
    • To post as a guest, your comment is unpublished.
      skyyang · 27 days ago
      Hello, janick,
      The code works well in my workbook, do you select the correct folder contains the images? Please check it?

      Thank you!
  • To post as a guest, your comment is unpublished.
    DikshMishra · 1 months ago
    Hey, it was an amazing article thanks for sharing.
    Keep up the good work.

    source: https://tractorguru.in/tractor/new-holland-9010
  • To post as a guest, your comment is unpublished.
    saundersmarshall · 2 months ago
    This is a great article! I really like how you presented it so easy to understand