JPG Insert using VBA

  • Thread starter Thread starter Hayman
  • Start date Start date
H

Hayman

Is there a way to insert a jpg picture into an excel sheet using VBA or
visual basic languages?
Your help is really appreciated.
Hayman
 
Hayman,

Taken from the macro recorder

ActiveSheet.Pictures.Insert ( _
"C:\My Pictures\Winter.jpg")
 
Is there a way to use a pull down or a list box for a
certain folder / directory and have thumbnail views of the
image files available within an excel2002 worksheet?

Regards,
JB
 
When you do an Insert|picture, you get that open dialog that has an option to
show details, list, small icons, large icons and preview.

When you do preview, you can see the picture, but it's one at a time. If that's
ok, you can use something like this:

Option Explicit
Sub testme()

Dim myFileName As Variant

myFileName = Application.GetOpenFilename
If myFileName = False Then
'user hit cancel
Exit Sub '??
End If

'Then Bob's code
ActiveSheet.Pictures.Insert filename:=myfilename

End Sub

(If you use windows XP, can't you see the pictures as bitmaps in the open
dialog? (I don't use winXP.))

But I do use a very nice program called Irfanview. It's at:
http://www.irfanview.com
 
From online Help:

'Declare a variable as a FileDialog object.
Dim fd As FileDialog

'Create a FileDialog object as a File Picker dialog.
Set fd = Application.FileDialog(msoFileDialogFilePicker)

'Declare a variable to contain the path
'of each selected item. Even though the path is a String,
'the variable must be a Variant because For Each...Next
'routines only work with Variants and Objects.
Dim vrtSelectedItem As Variant

'Use a With...End With block to reference the FileDialog object.
With fd

'Add a filter that includes GIF and JPEG images and make it the
first item in the list.
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

'Use the Show method to display the File Picker dialog box and
return the user's action.
'If the user presses the action button...
If .Show = -1 Then

'Step through each string in the FileDialogSelectedItems
collection.
For Each vrtSelectedItem In .SelectedItems

'vrtSelectedItem is a String that contains the path of each
selected item.
'You can use any file I/O functions that you want to work
with this path.
'This example simply displays the path in a message box.
MsgBox "Selected item's path: " & vrtSelectedItem

Next vrtSelectedItem
'If the user presses Cancel...
Else
End If
End With

'Set the object variable to Nothing.
Set fd = Nothing
 
Back
Top