Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
JPG Insert using VBA
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
JPG Insert using VBA
Hayman,
Taken from the macro recorder ActiveSheet.Pictures.Insert ( _ "C:\My Pictures\Winter.jpg") -- HTH Bob Phillips "Hayman" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
JPG Insert using VBA
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 -----Original Message----- Hayman, Taken from the macro recorder ActiveSheet.Pictures.Insert ( _ "C:\My Pictures\Winter.jpg") -- HTH Bob Phillips "Hayman" wrote in message ... 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 . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
JPG Insert using VBA
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 JBob wrote: 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 -----Original Message----- Hayman, Taken from the macro recorder ActiveSheet.Pictures.Insert ( _ "C:\My Pictures\Winter.jpg") -- HTH Bob Phillips "Hayman" wrote in message ... 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 . -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
JPG Insert using VBA
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 "JBob" wrote in message ... 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 -----Original Message----- Hayman, Taken from the macro recorder ActiveSheet.Pictures.Insert ( _ "C:\My Pictures\Winter.jpg") -- HTH Bob Phillips "Hayman" wrote in message ... 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cannot insert worksheet in exel - not available in insert menu | Excel Worksheet Functions | |||
insert row / insert column command buttons | Excel Worksheet Functions | |||
How can I insert a date with an icon (calendar) insert | Excel Discussion (Misc queries) | |||
Can I auto insert a worksheet when I insert a value in a cell. | Excel Worksheet Functions | |||
Insert Next? Or insert a variable number of records...how? | Excel Discussion (Misc queries) |