Copy メソッド

オブジェクト：NotebookItem , MacroItem , NativeWorksheetItem , ExcelItem , TransformItem , ReportItem , FitItem , GraphItem

• タイプ: Sub
• 構文: NotebookItems object.Copy

指定したノートブックアイテムにある選択状態のアイテムをコピーします。選択状態のアイテムが無ければ、エラーを返します。

Example

• 現在開いているワークシートの選択状態にある列をクリップボードにコピーします。

  Dim MaxColumn As Long
  Dim MaxRows As Long
  MaxColumn = 0
  MaxRows = 0
  ActiveDocument.CurrentDataItem.DataTable.GetMaxUsedSize(MaxColumn,MaxRows)
  Dim collist$()
  ReDim collist$(MaxColumn+1)
  Dim i
  For i=1 To MaxColumn
  collist$(i)=CStr(i)
  Next i
  Dim msgtext
  Begin Dialog UserDialog 400,98,"Copy Column" ' %GRID:10,7,1,1
  ComboBox 150,49,50,42,collist(),.ComboBox1
  Text 30,14,240,21,"Current Worksheet: " + ActiveDocument.CurrentDataItem.Name,.Text1
  Text 30,49,110,21,"Column to copy:",.Text2
  OKButton 300,14,80,21
  End Dialog
  Dim dlg1 As UserDialog
  Do
  dlg1.ComboBox1="1"
  Dialog dlg1
  If CLng(dlg1.ComboBox1)>MaxColumn Or CLng(dlg1.ComboBox1)<1 Then
  msgtext="Value must be between 1 and " + CStr(MaxColumn)
  MsgBox(msgtext,0+48,"Out of Range")
  End If
  Loop Until CLng(dlg1.ComboBox1)>0 And CLng(dlg1.ComboBox1)<MaxColumn+1
  
  Dim Selection(3)
  Selection(0) = CLng(dlg1.ComboBox1)-1
  Selection(1) = 0
  Selection(2) = CLng(dlg1.ComboBox1)-1
  Selection(3) = &H7FFFFFF
  ActiveDocument.CurrentDataItem.SelectionExtent = Selection
  ActiveDocument.CurrentDataItem.Copy