在VBA中创建了按钮，贴了图片，怎样清空剪粘板。

lovesun

1.我执行了下列代码后，拷贝了一个图片到剪粘板，这样每回刚启动完word 之后，马上执行拷贝，会粘贴一个按钮图片到文档中,怎样清空剪粘板。 2.现在创建的按钮在独占一行，怎样将按钮放在其它工具栏后面，还是用自己的创建的工具栏。 Dim hDC As Long, hBitmap As Long For i = 1 To Application.CommandBars.Count If Application.CommandBars(i).Name = "we" Then Exit Sub Next i strExePath = GetString(HKEY_CURRENT_USER, "software\prp\path", "") Ret = GetForegroundWindow() hBitmap = LoadImage(0, strExePath & "\1.bmp", IMAGE_BITMAP, 32, 32, LR_LOADFROMFILE) If hBitmap <> 0 Then OpenClipboard Ret '打开剪贴板 EmptyClipboard '清空剪贴板 SetClipboardData CF_BITMAP, hBitmap '将位图复制到剪贴板 CloseClipboard '关闭剪贴板 End If Application.CommandBars.Add("we", 1, , True).Visible = True Application.CommandBars("we").Controls.Add Type:=msoControlButton Application.CommandBars("we").Controls(1).OnAction = "MyExe" If hBitmap <> 0 Then Application.CommandBars("we").Controls(1).PasteFace EmptyClipboard Else End If

lovesun

1.CommandBars("Clipboard").Controls(4).Execute是什么意思？ 2.我是自己创建了一个工具栏，想指定这个工具栏的位置在某一个工具栏的右边。

lovesun

清空剪粘板用api函数emptyclipboard怎么不起作用？

惊叹不已

Word中的剪贴板对象和Windows的剪贴板是不同的,Word中的剪贴板最多可以存放12个剪切和复制的内容,而Windows则只能有一个.

惊叹不已

1.清空剪贴板,相当于按下了剪贴板工具栏第四个按钮. 2.下例将剪贴板工具栏放到标准工具栏的右边 CommandBars("clipboard").Visible = True CommandBars("clipboard").Position = msoBarTop CommandBars("clipboard").RowIndex = CommandBars("standard").RowIndex CommandBars("clipboard").Left = CommandBars("standard").Left + CommandBars("standard").Width

[此贴子已经被惊叹不已于2002-4-29 16:48:28编辑过]

惊叹不已

1.CommandBars("Clipboard").Controls(4).Execute 2.用CommandBars(名称)或用CommandBars(索引)来决定在哪里增加按钮. CommandBars("Standard").Controls.Add 在标准工具栏增加一个按钮

aliqmoney

标记下，以后学习

05050818

说来说去,我还是没有得到一个如何清空EXCEL剪贴板内容的方法