J
jsteelfox
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
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