Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata

Basic Test:

Public Sub ClipBoardCopy()
   Dim MyDataObject As Object
    Set MyDataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    With MyDataObject
        .SetText "TEST"
        .PutInClipboard
    End With
End Sub

Another Version:

Public Sub Copy()
  Dim CopytoClipBoard As Range
    Set CopytoClipBoard = ActiveWorkbook.ActiveSheet.Range("A1:A14")
  CopytoClipBoard.Copy
End Sub


  • No labels