Sub Macro1()
Dim rng As Range
Set rng = Range("A1")
If rng.Value = "x" Then
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\...\untitled2.gif").Select
End If
End Sub
' ActiveSheet.Pictures.Insert( _
' "C:\Documents and Settings\...\untitled2.gif").Select
Dim picnme As String
Dim rng As Range
Set rng = Range("S1")
If rng.Value = "1" Then
picnme = Range("P28")
' ActiveSheet.Pictures.Insert( _
' "C:\Documents and Settings\Pictures\"& picnme &").Select
Selection.ShapeRange.IncrementLeft 162#
Selection.ShapeRange.IncrementTop 0.75
End If
End Sub
Dim picnme As String
Dim rng As Range
Set rng = Range("S1")
If rng.Value = "1" Then
picnme = Range("P28")
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Pictures\"& picnme &").Select
Selection.ShapeRange.IncrementLeft 162#
Selection.ShapeRange.IncrementTop 0.75
End If
End Sub
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Pictures\& picnme &").Select