Thanks for this video and code. It really works but I was wondering, if I may ask: How could it be that the files get inserted as object instead of picture format? I'm asking this since if you insert as image and gets adjusted to the cell, then whenever you enlarge the file, it gets blurry. Thanks in advance!
Sir mere pas bahut sari photos h mujhe unhe nine images leni h per a4 size paper par or sari photos nikalni h nine nine karke or photo ke upar uska name bhi aa jaye header or footer ki jagah ho
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) xcolIndex = xcolIndex + 1 Next End If End Sub
very use full
This is Very Helpful to Me.
Thanks for this video and code. It really works but I was wondering, if I may ask: How could it be that the files get inserted as object instead of picture format? I'm asking this since if you insert as image and gets adjusted to the cell, then whenever you enlarge the file, it gets blurry. Thanks in advance!
Thank you
Thanks a lot for the video.
You are welcome
Good job 👍👍
Thanks 👍
Next sheet mai formula se usth sakti hh kya
Thank you boss❤❤❤❤
Welcome
how about importing the image in column A and the corresponding title in column B?
Thank you so much
You're most welcome
Thank you!!!
👌👌
Nice
Thanks
how to do with subfolders included?
Sir mere pas bahut sari photos h mujhe unhe nine images leni h per a4 size paper par or sari photos nikalni h nine nine karke or photo ke upar uska name bhi aa jaye header or footer ki jagah ho
Not working on mac OS SONOMA
Bhai music off karo or voice apni badhao bina ear phones ke apki vdo bilkul bhi sunai ni deti but vdo ne mera bahut bada trouble khatm kar diya thanks
Bhai abhi sound krna thoda muskil hai. But next time iska dhyan rakhuga
Code kaha h
Hi , dose any one can do this, i try several time and I couldn’t
How can I help you?
Sir ok but i want it in row that how tell
Please download it.
copy and paste in module.
drive.google.com/file/d/1gsfQddqAfSDqQ1DvLUCAAysA0LAnf06k/view?usp=sharing
Can't access file
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)
xcolIndex = xcolIndex + 1
Next
End If
End Sub
Emp code ke hisab se import karna ho toh
Emp code ke hisab se images rename krni padegi, fir macro run kr skte ho
@@ExpertWorld18 thanks
please send me code
Link given in description box
@@ExpertWorld18 link not working
Audio bahut kam hai kuch samajh me nahi ata , aap log aise vdo bante hi kyun hai.
I am a new creator, Just learning