Hi Barb
I tired this, but the error kicks in, it is when i select the name of a person on worksheet three (as example) that has also been selected on worksheet one.
with the code you suggested, i still get the same error.
any thoughts?
Barb Reinhardt wrote:
Try thisOption ExplicitPrivate Sub Worksheet_Calculate()Dim oShape As ShapeDim
28-Dec-09
Try this
Option Explicit
Private Sub Worksheet_Calculate()
Dim oShape As Shape
Dim myRange As Excel.Range
Set myRange = Me.Range("ad1")
For Each oShape In Me.Shapes
oShape.Visible = msoFalse
Next oShape
For Each oShape In Me.Shapes
If oShape.Type = 13 And _
oShape.Name = myRange.Text Then
oShape.Visible = True
oShape.Top = myRange.Top
oShape.Left = myRange.Left
Exit For
End If
Next oShape
End Sub
--
HTH,
Barb Reinhardt
"JB Bates" wrote:
Previous Posts In This Thread:
On Monday, December 28, 2009 12:13 PM
JB Bates wrote:
debug runtime error 1004
I have a workbook that contains 100 worksheets. On each work sheet I have
the following code (see below) that runs and when a particular person is
selected from a drop down list a jpg of their signature displays at the top
of each sheet.
This was working fine but I am now getting the following error after I
select a person from the drop down and then when ever i try to input data
into any other cell. The error message is:
Runtime Error '1004'" Unable to set the top property of the picture class
It then allows me to END or debug. if i select debug it opens the VBA
window to the code and highlights this line
oPic.Top = .Top
But i do not know what to to do with that line of code to debug
PLEASE HELP
thanks in advance - JB
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("ad1")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub
On Monday, December 28, 2009 7:43 PM
Barb Reinhardt wrote:
Try thisOption ExplicitPrivate Sub Worksheet_Calculate()Dim oShape As ShapeDim
Try this
Option Explicit
Private Sub Worksheet_Calculate()
Dim oShape As Shape
Dim myRange As Excel.Range
Set myRange = Me.Range("ad1")
For Each oShape In Me.Shapes
oShape.Visible = msoFalse
Next oShape
For Each oShape In Me.Shapes
If oShape.Type = 13 And _
oShape.Name = myRange.Text Then
oShape.Visible = True
oShape.Top = myRange.Top
oShape.Left = myRange.Left
Exit For
End If
Next oShape
End Sub
--
HTH,
Barb Reinhardt
"JB Bates" wrote:
Submitted via EggHeadCafe - Software Developer Portal of Choice
Creating a WPF Custom Control
http://www.eggheadcafe.com/tutorials...ustom-con.aspx