macro to load a picture

[deepfuntazii]

Hi guys please help a macro that can load picture automatically on excel

here is the sample link

http://img802.imageshack.us/img802/8159/cnub.png

apologize if there is already related post regarding this

 

[patel45]

do you want load from disk ? from web ? where do you want paste it ?

 

[deepfuntazii]

from my computer folder, please help

 

[kevatarvind]

HI your link nothing showing

and how do you want to insert you will put a list of picture name in excel and then macro will lookup that name in your pc folder and then where you want to insert same cell or any other cell ?

pls show some sample

 

[kevatarvind]

HI TRY BELOW CODE PUT YOUR PICTURE NAME IN CELL A1 AND IT WILL INSERT PHOTO IN CELL B1 YOUR EXCEL PICTURE NAME AND YOUR FOLDER PICTURE NAME MUST BE SAME

THIS AN EXAMPLE YOU CAN LOOP THIS CODE TO INSERT MORE PICTURE LIKE YOU PUT YOUR ALL PICTURE NAME IN COLUMN A AND IT THEN MACRO WILL INSERT PICTURE IN COLUMN B OR WHERE YOU WANTS
IF YOU WANT SOMETHING ELSE THEN LET ME KNOW

Option Explicit
Sub Insert_Pic()
Dim filename As String
Dim picpath As String
picpath = "F:\PHOTO\ALL PHOTO\" ' Change path to your pc path where is your photo
Range("A1").Select
filename = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
On Error Resume Next
 ActiveSheet.Pictures.Insert(picpath + filename + ".jpg").Select
 Selection.ShapeRange.LockAspectRatio = msoFalse
 Selection.ShapeRange.Height = 100
 Selection.ShapeRange.Width = 134
Selection.Cut
ActiveSheet.Paste
ActiveCell.RowHeight = 100
ActiveCell.ColumnWidth = 25
End Sub

 

[deepfuntazii]

HI TRY BELOW CODE PUT YOUR PICTURE NAME IN CELL A1 AND IT WILL INSERT PHOTO IN CELL B1 YOUR EXCEL PICTURE NAME AND YOUR FOLDER PICTURE NAME MUST BE SAME

THIS AN EXAMPLE YOU CAN LOOP THIS CODE TO INSERT MORE PICTURE LIKE YOU PUT YOUR ALL PICTURE NAME IN COLUMN A AND IT THEN MACRO WILL INSERT PICTURE IN COLUMN B OR WHERE YOU WANTS
IF YOU WANT SOMETHING ELSE THEN LET ME KNOW

Option Explicit
Sub Insert_Pic()
Dim filename As String
Dim picpath As String
picpath = "F:\PHOTO\ALL PHOTO\" ' Change path to your pc path where is your photo
Range("A1").Select
filename = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
On Error Resume Next
 ActiveSheet.Pictures.Insert(picpath + filename + ".jpg").Select
 Selection.ShapeRange.LockAspectRatio = msoFalse
 Selection.ShapeRange.Height = 100
 Selection.ShapeRange.Width = 134
Selection.Cut
ActiveSheet.Paste
ActiveCell.RowHeight = 100
ActiveCell.ColumnWidth = 25
End Sub

Hi, I have tried this but it's not working...
here is my data
Folder name and location => D:\Images
Excel file name => 500660BHH.JPG
Please help btw do you have a skype id?

 

[kevatarvind]

Hi, I have tried this but it's not working...
here is my data
Folder name and location => D:\Images
Excel file name => 500660BHH.JPG
Please help btw do you have a skype id?

Hi don't use File Extension in Excel just use like this 500660BHH remove that .JPG and put your file name in Cell A1

so A1 = 500660BHH

and try again it will work

 

[deepfuntazii]

Hi, I have tried this but it's not working...
here is my data
Folder name and location => D:\Images
Excel file name => 500660BHH.JPG
Please help btw do you have a skype id?

It still not working
here is the result

http://img822.imageshack.us/img822/6029/v19c.png

btw I'm using Excel 2003

 

[kevatarvind]

It still not working
here is the result

http://img822.imageshack.us/img822/6029/v19c.png

btw I'm using Excel 2003

HI nothing showing in your link and does not matter of Excel version in this macro

please upload your excel with name of photo and that photo folder and also put macro code which you are using any sharing site and paste link here

 

[deepfuntazii]

HI nothing showing in your link and does not matter of Excel version in this macro

please upload your excel with name of photo and that photo folder and also put macro code which you are using any sharing site and paste link here

Here is the macro that I use :

Option Explicit
Sub Insert_Pic()
Dim filename As String
Dim picpath As String
picpath = "D:\Images"
Range("A1").Select
filename = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
On Error Resume Next
ActiveSheet.Pictures.Insert(picpath + filename + ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 100
Selection.ShapeRange.Width = 134
Selection.Cut
ActiveSheet.Paste
ActiveCell.RowHeight = 100
ActiveCell.ColumnWidth = 25
End Sub

here is the link for the pictures (2 pictures) :

2013-07-10 28 photo, picture, image on Use.com