Hi everyone! វីដេអូនេះ ខ្ញុំបានធ្វើការបង្ហាញពីរបៀបក្នុងការបញ្ចូលរូបរូបថតទាំងអស់ ឱ្យត្រូវតាមបញ្ជីឈ្មោះដោយស្វ័យប្រវត្តិ ដោយគ្រាន់តែចំណាយពេលត្រឹមតែ ១វិនាទីប៉ុណ្ណោះ !
សូចចុច subscribe និងសញ្ញារូបកណ្ដឹង ដើម្បីទទួលបានវីដេអូចំណេះដឹងថ្មី ពីឆាណែល MsOffice Learning !
អរគុណសម្រាប់ការទស្សនារបស់អ្នកទាំងអស់គ្នា !!
Copy Code ខាងក្រោម៖
Sub Picture()
Dim pictname As String
Dim pastehere As Range
Dim pasterow As Long
Dim x As Long
Dim lastrow As Long
lastrow = Worksheets("sheet1").Range("B1").CurrentRegion.Rows.Count
x = 2
For x = 2 To lastrow
Set pastehere = Cells(x, 1)
pasterow = pastehere.Row
Cells(pasterow, 1).Select 'This is where picture will be inserted
pictname = Cells(x, 2) 'This is the picture name
ActiveSheet.Pictures.Insert("C:\Users\Barb\Pictures\demo\" & pictname & ".jpg").Select 'Path to where pictures are stored
With Selection
.Left = Cells(pasterow, 1).Left
.Top = Cells(pasterow, 1).Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 80#
.ShapeRange.Width = 80#
.ShapeRange.Rotation = 0#
End With
Next
End Sub
Негізгі бет គន្លឹះបញ្ចូលរូបថតទាំងអស់ ក្នុងរយៈពេលតែ ១ វិនាទី | How to Insert Multiple Pictures at Once in Excel
Пікірлер: 46