Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple macro to insert user selected picture into Excel 2003
Hi,
I currently have a protected spreadsheet that I want to add pictures too. I have been able to figure out a certain amount of the programming but I'm not aware of how to make it open a browser window to pick the file rather than insert a specific file. Let me emphasize, I want to keep this simple. Below is what I have so far. What do I replace the specific file pick with to allow for any picture file to be picked? ActiveSheet.Unprotect Range("A1:B2").Select ' This is the part I need to change. ActiveSheet.Pictures.Insert( _ "C:\Documents and Settings\casem02.AMER\Desktop\32604galloapproval.j pg").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 712# Selection.ShapeRange.Width = 892# Selection.ShapeRange.Rotation = 0# ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ True, AllowInsertingRows:=True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple macro to insert user selected picture into Excel 2003
Use a dialog box:
Sub dural() myPictureName = Application.GetOpenFilename _ (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif") ActiveSheet.Pictures.Insert(myPictureName).Select End Sub -- Gary''s Student - gsnu200832 "Melody" wrote: Hi, I currently have a protected spreadsheet that I want to add pictures too. I have been able to figure out a certain amount of the programming but I'm not aware of how to make it open a browser window to pick the file rather than insert a specific file. Let me emphasize, I want to keep this simple. Below is what I have so far. What do I replace the specific file pick with to allow for any picture file to be picked? ActiveSheet.Unprotect Range("A1:B2").Select ' This is the part I need to change. ActiveSheet.Pictures.Insert( _ "C:\Documents and Settings\casem02.AMER\Desktop\32604galloapproval.j pg").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 712# Selection.ShapeRange.Width = 892# Selection.ShapeRange.Rotation = 0# ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ True, AllowInsertingRows:=True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple macro to insert user selected picture into Excel 2003
Worked great. Nice and Simple. Thanks.
"Gary''s Student" wrote: Use a dialog box: Sub dural() myPictureName = Application.GetOpenFilename _ (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif") ActiveSheet.Pictures.Insert(myPictureName).Select End Sub -- Gary''s Student - gsnu200832 "Melody" wrote: Hi, I currently have a protected spreadsheet that I want to add pictures too. I have been able to figure out a certain amount of the programming but I'm not aware of how to make it open a browser window to pick the file rather than insert a specific file. Let me emphasize, I want to keep this simple. Below is what I have so far. What do I replace the specific file pick with to allow for any picture file to be picked? ActiveSheet.Unprotect Range("A1:B2").Select ' This is the part I need to change. ActiveSheet.Pictures.Insert( _ "C:\Documents and Settings\casem02.AMER\Desktop\32604galloapproval.j pg").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 712# Selection.ShapeRange.Width = 892# Selection.ShapeRange.Rotation = 0# ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ True, AllowInsertingRows:=True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to create a simple insert pic macro in Excel 2003 | Excel Programming | |||
Excel 2003, insert picture, save as HTM, FTP to website, no pic? | Excel Discussion (Misc queries) | |||
Excel 2003 Insert Picture changes JPG to PNG format | Excel Discussion (Misc queries) | |||
Excel 2003 - insert picture - Not Responding | Setting up and Configuration of Excel | |||
Simple Insert Picture question | Excel Programming |