Visual Basic - problema con Application.ScreenUpdating = False

Life is soft - evento anual de software empresarial
   
Vista:

problema con Application.ScreenUpdating = False

Publicado por alberto (3 intervenciones) el 16/09/2009 12:02:43
Hola tengo este codigo : y me dice que no es una variable definida Application.ScreenUpdating = False y ActiveSheet.Pictures.Insert y no se porque es is me podesi ayudar.
Gracias , un saludo.


Sub test()
Dim MyPic As Object
Application.ScreenUpdating = False
Set MyPic = ActiveSheet.Pictures.Insert( _
****"C:TempMy Picture.jpg")
Call SendMail(MyPic)
MyPic.Delete
Set MyPic = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub SendMail(ByRef MyPic As Object)

Dim Notes As Object, db As Object, WorkSpace As Object
Dim UIdoc As Object, UserName As String, MailDbName As String

Set Notes = CreateObject("Notes.NotesSession")

UserName = Notes.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
****(Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

Set db = Notes.GetDataBase(vbNullString, MailDbName)

Set WorkSpace = CreateObject("Notes.NotesUIWorkspace")
Call WorkSpace.ComposeDocument(, , "Memo")

Set UIdoc = WorkSpace.CurrentDocument
Call UIdoc.FieldSetText("SendTo", "Jane C Doe") 'Recipient
Call UIdoc.FieldSetText("Subject", "Pic Time")

MyPic.Copy
Call UIdoc.GotoField("Body")
Call UIdoc.InsertText(WorksheetFunction.Substitute( _
****"Hello!@@Check out the pic eh:@@", _
****"@", vbCrLf))
Call UIdoc.Paste
Call UIdoc.InsertText(Application.Substitute( _
****"@@Later,@Me", "@", vbCrLf))
Application.CutCopyMode = False

Call UIdoc.Send(False)
UIdoc.Close

Set UIdoc = Nothing: Set WorkSpace = Nothing
Set db = Nothing: Set Notes = Nothing

End Sub

Call it from test().
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema con Application.ScreenUpdating = False

Publicado por jaime guerrero (361 intervenciones) el 16/09/2009 19:27:51
esos objetos son de vba que se usa en excel. esto no se usa en vb6.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar