Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inserting a picture macro
I have created a macro that will allow the user to insert a picture and
resize it. Sub Insert_pic() ' ' Insert_pic Macro ' Macro recorded 6/23/2006 by pricek ' Const PW As String = "fire" 'Change Password Here ActiveSheet.Unprotect Password:=PW Range("a5:z5").Select Application.Dialogs(xlDialogInsertPicture).Show 'ActiveSheet.Shapes.Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 250# Selection.ShapeRange.Width = 475# ActiveSheet.Protect Password:=PW End Sub Once the picture is inserted, I need to save it to a specified folder and I also want it to have a specified name. They should only be able to add one picture, so if additional pictures are added it should overwrite the first picture. I have setup additional buttons to allow the user to rotate it, which is based on the specified name. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inserting a Picture using Cell as picture name. | Links and Linking in Excel | |||
Inserting a picture | Excel Discussion (Misc queries) | |||
Inserting a picture | Excel Discussion (Misc queries) | |||
get a picture width and height without inserting the picture | Excel Programming | |||
Inserting picture in footer with macro | Excel Programming |