| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to locate picture
Want to crteate a macro that goes to exploerer and allows me to choose any
photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
Use the GetOpenFileName which Displays the standard Open dialog box and gets
a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
"Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
Hi Joel,
Thanks for the code. I want to chenge to photo extensions so how do i write it .GetOpenFilename (*.jpeg), *.jpeg") This doesn't work so can you write it properly. Thanks again "Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
fileToOpen = Application _ .GetOpenFilename("All Files (*.jpg),*.jpg") "gwbdirect" wrote: Hi Joel, Thanks for the code. I want to chenge to photo extensions so how do i write it .GetOpenFilename (*.jpeg), *.jpeg") This doesn't work so can you write it properly. Thanks again "Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
Iwas able to make the macro go find picture files in my picture folder. Now I
need to figure out a code that would allow me to copy and paste chosen pictures either 1 at a time or multiple at a time and put them on my workshhet. Tanks for all your help. I'll send in another question if I can't figure it out. "Joel" wrote: fileToOpen = Application _ .GetOpenFilename("All Files (*.jpg),*.jpg") "gwbdirect" wrote: Hi Joel, Thanks for the code. I want to chenge to photo extensions so how do i write it .GetOpenFilename (*.jpeg), *.jpeg") This doesn't work so can you write it properly. Thanks again "Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
To add the picture use statement below. You can replace the hard-coded file
name with the file name return from the GetOpenFileName Range("N16").Select ActiveSheet.Pictures.Insert("H:\My Documents\My Pictures\JTAG-Board.jpg"). _ Select or Range("N16").Select ActiveSheet.Pictures.Insert(filetoOpen).Select "gwbdirect" wrote: Iwas able to make the macro go find picture files in my picture folder. Now I need to figure out a code that would allow me to copy and paste chosen pictures either 1 at a time or multiple at a time and put them on my workshhet. Tanks for all your help. I'll send in another question if I can't figure it out. "Joel" wrote: fileToOpen = Application _ .GetOpenFilename("All Files (*.jpg),*.jpg") "gwbdirect" wrote: Hi Joel, Thanks for the code. I want to chenge to photo extensions so how do i write it .GetOpenFilename (*.jpeg), *.jpeg") This doesn't work so can you write it properly. Thanks again "Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
Joel,
What if you want ALL graphic files to show, e.g., .jpg, .gif, .bmp, .png? How would the code be written? Thanx. "Joel" wrote: fileToOpen = Application _ .GetOpenFilename("All Files (*.jpg),*.jpg") "gwbdirect" wrote: Hi Joel, Thanks for the code. I want to chenge to photo extensions so how do i write it .GetOpenFilename (*.jpeg), *.jpeg") This doesn't work so can you write it properly. Thanks again "Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
fileToOpen = Application.GetOpenFilename( _
"All Graphic Files (*.jpg; *.gif; *.bmp; *.png),*.jpg;*.gif;*.bmp;*.png") The fields are seperated with semicolons. "Rhino V" wrote: Joel, What if you want ALL graphic files to show, e.g., .jpg, .gif, .bmp, .png? How would the code be written? Thanx. "Joel" wrote: fileToOpen = Application _ .GetOpenFilename("All Files (*.jpg),*.jpg") "gwbdirect" wrote: Hi Joel, Thanks for the code. I want to chenge to photo extensions so how do i write it .GetOpenFilename (*.jpeg), *.jpeg") This doesn't work so can you write it properly. Thanks again "Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to locate picture
Try it this way...
Application.GetOpenFilename ("Graphic Files (*.jpg;*.gif;*.bmp;*.png)," & _ "*.jpg;*.gif;*.bmp;*.png,JPEG Files (*.jpg)," & _ "*.jpg,GIF Files (*.gif),*.gif,BMP Files (*.bmp)," & _ "*.bmp,PNG Files (*.png),*.png,All Files (*.*),*.*") -- Rick (MVP - Excel) "Rhino V" wrote in message ... Joel, What if you want ALL graphic files to show, e.g., .jpg, .gif, .bmp, .png? How would the code be written? Thanx. "Joel" wrote: fileToOpen = Application _ .GetOpenFilename("All Files (*.jpg),*.jpg") "gwbdirect" wrote: Hi Joel, Thanks for the code. I want to chenge to photo extensions so how do i write it .GetOpenFilename (*.jpeg), *.jpeg") This doesn't work so can you write it properly. Thanks again "Joel" wrote: Use the GetOpenFileName which Displays the standard Open dialog box and gets a file name from the user without actually opening any files. Change .txt to the picture extension you are using such as .jpg fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen < False Then MsgBox "Open " & fileToOpen End If "gwbdirect" wrote: Want to crteate a macro that goes to exploerer and allows me to choose any photo by clicking on it. Not a specific photo but different ones each time I run the macro. Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Locate data macro | Excel Discussion (Misc queries) | |||
| Using a macro to locate a user given value | Excel Programming | |||
| Locate and Format Row Macro | Excel Programming | |||
| locate picture location using macro | Excel Programming | |||
| Crrection Help for a macro to locate max value cell | Excel Programming | |||
Hybrid Mode
