Macro to Insert Multiple Images to Multiple Sheet of a Excel Workbook.
Greetings to All.
I have some Issues in the below Macro.
My intention is to Copy/Insert the multiple Images in a folder that I select to the multiple sheets of a excel workbook.
The Macro should only have to insert the select images to the sheets.
The sheets are named as "Sheet1, Sheet2, Sheet3... etc..."
And Suppose if there are 20 Sheets in the workbook and I have 10 Images to insert it in Sheet1, Sheet2..........Sheet10, then I want to delete the remaining sheets(that is Sheet11, Sheet12.....Sheet20).
Currently I'm using the below Macro, But it is not working.
Could anyone write/modify the macro to above said conditions.
Thanks in Advance.
Dim myPicture As Variant
Dim myCell As Range
Dim lLoop As Long
Dim Sht As Worksheet
On Error Resume Next
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif *.png", , "SELECT FILE(S) TO IMPORT", MultiSelect:=True)
If VarType(myPicture) = vbBoolean Then
MsgBox "NO FILES SELECTED"
For lLoop = LBound(myPicture) To UBound(myPicture)
For Each Sht In ActiveWorkbook.Worksheets
Set myCell = .Range("I4:S26")
Selection.Top = .Top
Selection.Left = .Left
Selection.Width = .Width
Selection.Height = .Height
Selection.Placement = xlMoveAndSize ' move and size with cells
Application.ScreenUpdating = True
Re: Macro to Insert Multiple Images to Multiple Sheet of a Excel Workbook.
Could anyone write a Code for the above condition please.
I'm waiting for the replies.
Users Browsing this Thread
There are currently 1 users browsing this thread. (0 members and 1 guests)
By vasu.meesala in forum Excel Programming / VBA / Macros
Last Post: 07-25-2014, 02:10 PM
By pbucc in forum Excel Programming / VBA / Macros
Last Post: 07-02-2014, 03:04 PM
By celtic king in forum Excel Programming / VBA / Macros
Last Post: 03-10-2014, 04:13 PM
By meperson in forum Excel Programming / VBA / Macros
Last Post: 12-04-2012, 03:29 PM
By plasma33 in forum Excel Programming / VBA / Macros
Last Post: 05-21-2012, 11:07 PM
Search Engine Friendly URLs by vBSEO 3.6.0 RC 1