wordart
 

why does the following code work unless called by a form??? I have a form
that calls the routine but always gives the error 1004 application or object
not defined error, BUT if you step thriough the code it works perfectly with
no error. Any help?
on error resume next only skips the code.

Public Sub sendtotest() 'strStr1 As String, strStr2 As String)
Dim strString1 As String
Dim strString2 As String
strString1 = "DCH1205" 'worksheet name
strString2 = "Why can't I get this to WORK!!!"
Call test(strString1, strString2)
End Sub


Public Sub test(strString1 As String, strString2 As String)
Dim strText As String
Dim strworksheet As String
strText = strString2
strworksheet = strString1
Set myDocument = Worksheets(strworksheet)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect28, Text:=strText, _
FontName:="Impact", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, _
Top:=10)
End Sub

wordart
 

Hi,
your code works fine for me whether i run SendToTest directly or from the
click of a button in a userform, whether the referenced sheet is the
activesheet or not.

--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Shawn G." wrote:

why does the following code work unless called by a form??? I have a form
that calls the routine but always gives the error 1004 application or object
not defined error, BUT if you step thriough the code it works perfectly with
no error. Any help?
on error resume next only skips the code.

Public Sub sendtotest() 'strStr1 As String, strStr2 As String)
Dim strString1 As String
Dim strString2 As String
strString1 = "DCH1205" 'worksheet name
strString2 = "Why can't I get this to WORK!!!"
Call test(strString1, strString2)
End Sub


Public Sub test(strString1 As String, strString2 As String)
Dim strText As String
Dim strworksheet As String
strText = strString2
strworksheet = strString1
Set myDocument = Worksheets(strworksheet)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect28, Text:=strText, _
FontName:="Impact", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, _
Top:=10)
End Sub

wordart
 

Your right, it works. EXCEPT in my project!!!!!!! ARRRRGGGGGHHHH!
Any clue what might be causeing that error, OR a way to bypass the error so
the user doesn't see it???

"sebastienm" wrote:

Hi,
your code works fine for me whether i run SendToTest directly or from the
click of a button in a userform, whether the referenced sheet is the
activesheet or not.

--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Shawn G." wrote:

why does the following code work unless called by a form??? I have a form
that calls the routine but always gives the error 1004 application or object
not defined error, BUT if you step thriough the code it works perfectly with
no error. Any help?
on error resume next only skips the code.

Public Sub sendtotest() 'strStr1 As String, strStr2 As String)
Dim strString1 As String
Dim strString2 As String
strString1 = "DCH1205" 'worksheet name
strString2 = "Why can't I get this to WORK!!!"
Call test(strString1, strString2)
End Sub


Public Sub test(strString1 As String, strString2 As String)
Dim strText As String
Dim strworksheet As String
strText = strString2
strworksheet = strString1
Set myDocument = Worksheets(strworksheet)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect28, Text:=strText, _
FontName:="Impact", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, _
Top:=10)
End Sub