How to Insert Multiple Images and Resize Selected Cells in Microsoft Excel 2021

Hello Friends, In this Tutorial, you will learn How to insert multiple pictures selected cells in Microsoft Excel 2021. How to insert multiple pictures and resize them at once in Excel.

Code:- 

Sub InsertPictures()

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

   

প্রিয় দর্শক, KB Tech এর পক্ষ থেকে আপনাদের স্বাগতম। আপনাদের ভালোবাসা পেয়ে ইতিমধ্য KB Tech অনেক দুর এগিয়ে গেছে। আশা করি এভাবে সামনের দিনগুলো আপনাদের পাশে পাব। ভালো লাগা ভিডিও গুলো অবশ্যই Like comment & Share করতে ভুলবেন না। আর আপনাদের কাছে বিনীত অনুরোধ রইল KB Tech চ্যানেলটি... Subscribe করার জন্য। ============================================ Please Subscribe:- https://www.youtube.com/kbtechbd -----------------------------------------------------------------------------------------