Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing a macro so it's not cell specific
I recorded a macro to be able to insert a picture from our network
drive and it works well. However I would like to be able to change the picture identification (idxxxxxx) and picture (jpg) for different accounts while still using the same spreadsheet form. Does anyone know how to help? Below is the marco I would like to change. Sub SubjectPhoto() ' ' SubjectPhoto Macro ' Macro recorded 10/31/2007 by ' ' ActiveSheet.Unprotect Range("AE7").Select ActiveSheet.Pictures.Insert( _ "\\server1\documents\Value Adjustment Board \id064410.jpg").Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 275.25 Selection.ShapeRange.Width = 364.5 Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 215.25 Selection.ShapeRange.Width = 285# Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.IncrementLeft -72# Selection.ShapeRange.IncrementTop -51.75 Selection.ShapeRange.IncrementLeft -3# Range("C8").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing a macro so it's not cell specific
If you put the picture ID in cell A1 you could try the following:
ActiveSheet.Pictures.Insert( _ "\\server1\documents\Value Adjustment Board \id" & Range("A1").Value & ".jpg").Select Is that what you're after? -- -SA " wrote: I recorded a macro to be able to insert a picture from our network drive and it works well. However I would like to be able to change the picture identification (idxxxxxx) and picture (jpg) for different accounts while still using the same spreadsheet form. Does anyone know how to help? Below is the marco I would like to change. Sub SubjectPhoto() ' ' SubjectPhoto Macro ' Macro recorded 10/31/2007 by ' ' ActiveSheet.Unprotect Range("AE7").Select ActiveSheet.Pictures.Insert( _ "\\server1\documents\Value Adjustment Board \id064410.jpg").Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 275.25 Selection.ShapeRange.Width = 364.5 Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 215.25 Selection.ShapeRange.Width = 285# Selection.ShapeRange.Rotation = 0# Selection.ShapeRange.IncrementLeft -72# Selection.ShapeRange.IncrementTop -51.75 Selection.ShapeRange.IncrementLeft -3# Range("C8").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing a macro so it's not cell specific
try using something like this:
dim myPictureName as Variant myPictureName = Application.GetOpenFilename _ (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif") this will allow the picture to be chosen using the browser instead of hard coding the name....... this thread in the programming group shows how they did it: http://groups.google.com/group/micro...a58bd036d5cd9c hope it helps! :) susan On Jul 28, 1:20*pm, wrote: I recorded a macro to be able to insert a picture from our network drive and it works well. However I would like to be able to change the picture identification (idxxxxxx) and picture (jpg) for different accounts while still using the same spreadsheet form. Does anyone know how to help? Below is the marco I would like to change. Sub SubjectPhoto() ' ' SubjectPhoto Macro ' Macro recorded 10/31/2007 by ' ' * * ActiveSheet.Unprotect * * Range("AE7").Select * * ActiveSheet.Pictures.Insert( _ * * * * "\\server1\documents\Value Adjustment Board \id064410.jpg").Select * * Selection.ShapeRange.LockAspectRatio = msoTrue * * Selection.ShapeRange.Height = 275.25 * * Selection.ShapeRange.Width = 364.5 * * Selection.ShapeRange.Rotation = 0# * * Selection.ShapeRange.LockAspectRatio = msoTrue * * Selection.ShapeRange.Height = 215.25 * * Selection.ShapeRange.Width = 285# * * Selection.ShapeRange.Rotation = 0# * * Selection.ShapeRange.IncrementLeft -72# * * Selection.ShapeRange.IncrementTop -51.75 * * Selection.ShapeRange.IncrementLeft -3# * * Range("C8").Select * * ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing a macro so it's not cell specific
On Jul 28, 1:40*pm, StumpedAgain
wrote: If you put the picture ID in cell A1 you could try the following: * * ActiveSheet.Pictures.Insert( _ * * * * "\\server1\documents\Value Adjustment Board \id" & Range("A1").Value & ".jpg").Select Is that what you're after? -- -SA " wrote: I recorded a macro to be able to insert a picture from our network drive and it works well. However I would like to be able to change the picture identification (idxxxxxx) and picture (jpg) for different accounts while still using the same spreadsheet form. Does anyone know how to help? Below is the marco I would like to change. Sub SubjectPhoto() ' ' SubjectPhoto Macro ' Macro recorded 10/31/2007 by ' ' * * ActiveSheet.Unprotect * * Range("AE7").Select * * ActiveSheet.Pictures.Insert( _ * * * * "\\server1\documents\Value Adjustment Board \id064410.jpg").Select * * Selection.ShapeRange.LockAspectRatio = msoTrue * * Selection.ShapeRange.Height = 275.25 * * Selection.ShapeRange.Width = 364.5 * * Selection.ShapeRange.Rotation = 0# * * Selection.ShapeRange.LockAspectRatio = msoTrue * * Selection.ShapeRange.Height = 215.25 * * Selection.ShapeRange.Width = 285# * * Selection.ShapeRange.Rotation = 0# * * Selection.ShapeRange.IncrementLeft -72# * * Selection.ShapeRange.IncrementTop -51.75 * * Selection.ShapeRange.IncrementLeft -3# * * Range("C8").Select * * ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub- Hide quoted text - - Show quoted text - This is exactly what I was trying to do. Thank you very much. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to run an event upon changing the value of a specific cell? | Excel Worksheet Functions | |||
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Options | Excel Discussion (Misc queries) | |||
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing | Excel Discussion (Misc queries) | |||
Changing the Color of Specific Characters using a Macro | Excel Worksheet Functions | |||
Copying autofiltered data to a specific (changing) row using a macro | Excel Programming |