Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert picture
Hi how do you insert picture if you only know the filename not the extention Pic$ is a six digit code, but the file if it exists can be .bmp, .gif, .jpeg , .jpg I want to insert if exists regardless of picture type. Please help Thanks sunil I have... If Dir(Path$ & Pic$) < "" Then ActiveSheet.Pictures.Insert(Path$ & Pic$).Select Endif |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert picture
I'm not sure I understand your question; however, if Pic$ is a 6-digit number only, you can do this to find a single file (there could be more than one) that has that filename... FileNameAndExtension = Dir(Path$ & Pic$ & ".*") If Len(FileName) 0 Then ActiveSheet.Pictures.Insert(FileName).Select The dot in the dot-asterisk (.*) that I added signifies an extension and the asterisk says that extension can be anything. I'm assuming you don't have, say, txt file in that directory with the same filename part, otherwise you will have to filter them out using a loop of some kind. -- Rick (MVP - Excel) "sunilpatel" wrote in message ... Hi how do you insert picture if you only know the filename not the extention Pic$ is a six digit code, but the file if it exists can be .bmp, .gif, .jpeg , .jpg I want to insert if exists regardless of picture type. Please help Thanks sunil I have... If Dir(Path$ & Pic$) < "" Then ActiveSheet.Pictures.Insert(Path$ & Pic$).Select Endif |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert picture
dim exts as string dim bFound as boolean for i = 1 to 3 select case i case 1: exts =".bmp" case 2: exts ="..gif" case 3: exts =".jpeg" end select If Dir(Path$ & Pic$ & exys ) < "" Then bfound = True exit for Endif next if not bFound then msgbox "No file found" else ActiveSheet.Pictures.Insert(Path$ & Pic$ & exts ).Select end if "sunilpatel" wrote in message ... Hi how do you insert picture if you only know the filename not the extention Pic$ is a six digit code, but the file if it exists can be .bmp, .gif, .jpeg , .jpg I want to insert if exists regardless of picture type. Please help Thanks sunil I have... If Dir(Path$ & Pic$) < "" Then ActiveSheet.Pictures.Insert(Path$ & Pic$).Select Endif |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert picture
If I knew the possible extensions, I'd just try them until I found it: dim myExtensions as variant dim eCtr as long dim Pic as string dim PicName as string dim FoundIt as boolean dim myPath as string myextensions = array("bmp","gif","jpg", "jpeg") pic = "123456" mypath = "C:\something\" foundit = false for ectr = lbound(myextensions) to ubound(myextensions) picname = mypath & pic & "." & myextensions(ectr) if dir(picname) = "" then 'keep looking else exit for foundit = true end if next ectr if foundit = false then msgbox "Not found" else 'insert picname end if sunilpatel wrote: Hi how do you insert picture if you only know the filename not the extention Pic$ is a six digit code, but the file if it exists can be .bmp, .gif, .jpeg , .jpg I want to insert if exists regardless of picture type. Please help Thanks sunil I have... If Dir(Path$ & Pic$) < "" Then ActiveSheet.Pictures.Insert(Path$ & Pic$).Select Endif -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
insert picture | Excel Programming | |||
how do I insert picture into cell so vlookup can return picture? | Excel Worksheet Functions | |||
insert a picture in to a comment but picture not save on hard disk | Excel Discussion (Misc queries) | |||
Insert Picture | Excel Programming | |||
insert picture | Excel Discussion (Misc queries) |