Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function strLoadToClipboard(strSelected As String) As String
' Procedure :   strLoadToClipboard
' Description:  Load (Move) a string to the clipboard.
' Copyright:    Chris Greaves Inc.
' Inputs:       String
' Returns:      STRING previous contents of the clipboard.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    ' Define the clipboard object
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.GetFromClipboard
   ' Obtain existing contents
   On Error Resume Next
   strLoadToClipboard = MyData.GetText(1)
   ' Set new contents of clipboard.
    Set MyData = New DataObject
    MyData.SetText strSelected
    MyData.PutInClipboard
'Sub TESTstrLoadToClipboard()
'' Enter Notepad and choose Edit, Paste to inspect existing contents, then ....
'MsgBox strLoadToClipboard("new contents 01")
'MsgBox strLoadToClipboard("new contents 02")
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function strLoadToClipboard(strSelected As String) As String
' Procedure :   strLoadToClipboard
' Description:  Load (Move) a string to the clipboard.
' Copyright:    Chris Greaves Inc.
' Inputs:       String
' Returns:      STRING previous contents of the clipboard.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    ' Define the clipboard object
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.GetFromClipboard
   ' Obtain existing contents
   On Error Resume Next
   strLoadToClipboard = MyData.GetText(1)
   ' Set new contents of clipboard.
    Set MyData = New DataObject
    MyData.SetText strSelected
    MyData.PutInClipboard
'Sub TESTstrLoadToClipboard()
'' Enter Notepad and choose Edit, Paste to inspect existing contents, then ....
'MsgBox strLoadToClipboard("new contents 01")
'MsgBox strLoadToClipboard("new contents 02")
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001