Button.CopyPicture Метод (2007 System)

Обновлен: Ноябрь 2007

Копирует объект Button в буфер обмена как рисунок.

Пространство имен:  Microsoft.Office.Tools.Excel.Controls
Сборка:  Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
Public Function CopyPicture ( _
    Appearance As XlPictureAppearance, _
    Format As XlCopyPictureFormat _
) As Object
'Применение
Dim instance As Button
Dim Appearance As XlPictureAppearance
Dim Format As XlCopyPictureFormat
Dim returnValue As Object

returnValue = instance.CopyPicture(Appearance, _
    Format)

public Object CopyPicture(
    XlPictureAppearance Appearance,
    XlCopyPictureFormat Format
)

Параметры

• Appearance
  Тип: Microsoft.Office.Interop.Excel.XlPictureAppearance
  Задает способ копирования рисунка.

• Format
  Тип: Microsoft.Office.Interop.Excel.XlCopyPictureFormat
  Формат рисунка. Принимает значение xlPicture.

Возвращаемое значение

Тип: System.Object
Имеет значение true, если копирование выполнено успешно; в противном случае имеет значение false.

Заметки

Необязательные параметры

Сведения о необязательных параметрах см. в разделе Общие сведения о необязательных параметрах в решениях Office.

Примеры

В следующем примере показан элемента управления Button копирующийся в буфер обмена, когда пользователь щелкает по нему. Обработчик событий кнопкиClick вызывает метод CopyPicture копирования кнопки в буфер обмена в виде точечного рисунка. Обработчик событий также запрашивает данные у пользователя для определения места появления исходной кнопки вызовом метода Delete.

В этом примере демонстрируется настройка уровня документа.

Private Sub CopyControlAsPicture()
    Dim CopyButton As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("B2", "D3"), "CopyButton")

    CopyButton.Text = "Click to copy this control"
    AddHandler CopyButton.Click, AddressOf copyButtonPicture_Click
End Sub


Private Sub CopyButtonPicture_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim ClickedButton As Microsoft.Office.Tools.Excel.Controls.Button = _
        CType(sender, Microsoft.Office.Tools.Excel.Controls.Button)

    If False = CBool( _
        ClickedButton.CopyPicture(Excel.XlPictureAppearance.xlScreen, _
        Excel.XlCopyPictureFormat.xlBitmap)) Then
        MsgBox("CopyPicture failed")
    End If
End Sub

private void CopyControlAsPicture()
{
    Microsoft.Office.Tools.Excel.Controls.Button copyButton =
        this.Controls.AddButton(this.Range["B2", "D3"],
        "copyButton");

    copyButton.Text = "Click to copy this control";
    copyButton.Click += new EventHandler(copyButtonPicture_Click);
}

void copyButtonPicture_Click(object sender, EventArgs e)
{
    Microsoft.Office.Tools.Excel.Controls.Button clickedButton =
        (Microsoft.Office.Tools.Excel.Controls.Button)sender;

    if (false == (bool)clickedButton.CopyPicture(
        Excel.XlPictureAppearance.xlScreen,
        Excel.XlCopyPictureFormat.xlBitmap))
    {
        MessageBox.Show("CopyPicture failed");
    }
}

Разрешения

• Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.

См. также

Ссылки

Button Класс

Button - члены

Microsoft.Office.Tools.Excel.Controls - пространство имен