كيفية إنشاء صور مخصصة بكميات كبيرة باستخدام جداول بيانات Google

محمد ناصر ‏2024-01-18, 14:54 مساء 145

كيفية إنشاء صور مخصصة بكميات كبيرة باستخدام جداول بيانات Google

 

لإنشاء صور مخصصة بكميات كبيرة باستخدام جداول بيانات Google، يمكنك استخدام وظائف جداول بيانات Google لإنشاء الصور ومعالجتها.

على سبيل المثال، يمكنك استخدام الدالة `IMAGE()` لإنشاء صورة من ملف ويب أو ملف محلي. يمكنك أيضًا استخدام الدالة `IMAGEHTML()` لإنشاء صورة HTML من سلسلة.

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

فيما يلي مثال على كيفية إنشاء صور مخصصة بكميات كبيرة باستخدام جداول بيانات Google:

1. افتح جدول بيانات Google جديد.
2. أدخل البيانات التالية في الجدول:

| العمود | العنوان |
|---|---|
| **الملف** | عنوان ملف الصورة |
| **الحجم** | الحجم المطلوب للصورة |
| **اللون** | اللون المطلوب للصورة |
| **النص** | النص المطلوب إضافته إلى الصورة |

3. احفظ الجدول باسم "إنشاء صور مخصصة".

4. افتح جدول بيانات Google "إنشاء صور مخصصة".

5. انقر على علامة التبويب "أدوات".

6. انقر على "استعلام".

7. في مربع الحوار "استعلام"، أدخل الصيغة التالية:

```
=IMAGE(A2, B2, C2, D2)
```

8. انقر على "موافق".

سيؤدي ذلك إلى إنشاء صورة من ملف الصورة المحدد في الخلية A2، بحجم المحدد في الخلية B2، باللون المحدد في الخلية C2، مع النص المحدد في الخلية D2.

يمكنك تكرار هذه الخطوات لإنشاء صور مخصصة إضافية.

يمكنك أيضًا استخدام ميزة "الماكرو" في جداول بيانات Google لإنشاء صور مخصصة بكميات كبيرة. للقيام بذلك، يمكنك إنشاء ماكرو يقوم بتنفيذ التعليمات البرمجية المطلوبة لإنشاء الصور.

فيما يلي مثال على ماكرو لإنشاء صور مخصصة بكميات كبيرة:

```
Sub CreateCustomImages()

' Iterate through the rows in the table
For i = 2 To LastRow

' Get the file name, size, color, and text
Dim fileName As String
Dim size As Integer
Dim color As String
Dim text As String

fileName = Cells(i, 1).Value
size = Cells(i, 2).Value
color = Cells(i, 3).Value
text = Cells(i, 4).Value

' Create the image
Dim image As Image
image = CreateImage(fileName, size, color, text)

' Save the image
image.SaveAs(Cells(i, 5).Value)

Next i

End Sub

Function CreateImage(fileName As String, size As Integer, color As String, text As String) As Image

' Create the image object
Dim image As Image
image = New Image

' Set the image properties
image.LoadFromFile(fileName)
image.Resize(size, size)
image.FillColor = color
image.Text = text

' Return the image
Return image

End Function
```

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

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

شارك المقالة