គន្លឹះបញ្ចូលរូបថតទាំងអស់ ក្នុងរយៈពេលតែ ១ វិនាទី | How to Insert Multiple Pictures at Once in Excel скачать в хорошем качестве

គន្លឹះបញ្ចូលរូបថតទាំងអស់ ក្នុងរយៈពេលតែ ១ វិនាទី | How to Insert Multiple Pictures at Once in Excel

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