Как очистить Буфер обмена в офисе?

[vrodo]

Уважаемые, Господа!

сабж. собственно

[GSerg]

Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long

[vrodo]

что самое интересное я уже это пробовал
данные API не работают с клипбоардом офиса

[GSerg]

Видать, потому, что это не клипбоард

[vrodo]

да придставляешь, однако
нет я на полном серьезе он называется Буфер Обмена и работает только для офиса
у офиса наверно есть свои апишки для работы с ним
мне кажется что тормоза у меня из за того что память захламлена
хотя все объектнае переменные я ставлю нафинь после отработки функции
проц загружается на 100% хотя машина вроде не слабая более 2Ghz Myst DEPO

[gacol]

На VBA Excel
Application.Calculate

[vrodo]

Уважаемый, gacol!
Вы наверно имели ввиду
Application.Calculation = xlCalculationManual
но данная вещь мне не помогает так как в дебагере тормоза идут именно на функциях
Copy
Insert
PasteSpecial
Delete
в приложении к Range.EntireRow
не могу использовать другие диапазоны так как часто вставку надо делать в середину документа

[uhm]

Слушай, а что ты вообще имеешь в виду под словами "буфер обмена"?

Если ты просто ячейки копируешь, и тебе нужно очистить выделение ячеек (то, которое обозначается мерцающим пунктиром по краям), то все просто - вставь в нужном месте Application.CutCopyMode=False и выделение исчезнет. При Application.Calculate, кстати, происходит то же самое, но еще заодно и все книги пересчитаются, что совершенно не нужно.

[vrodo]

Под "буфером обмена" имею ввиду именно БУФЕР ОБМЕНА

Вызывается в меню Правка/Буфер обмена Office...
или двойным нажатием Ctrl+C

Учите мат. часть Уважаемый!

[uhm]

Мат-часть - это армейское понятие изначально - "Материальная часть".

[gacol]

[quote="vrodo"]Уважаемый, gacol!
Вы наверно имели ввиду
Application.Calculation = xlCalculationManual ....

Уважаемый Vrodo!
Я имел введу именно событие Application.Calculation, при этом происходит и очистка буфера обмена.

[vrodo]

как Вы наверно уже поняли у меня на страницах много формул данная функция вызовет только лишние тормоза

[uhm]

Я имел введу именно событие Application.Calculation, при этом происходит и очистка буфера обмена.

Не-а, не происходит, и при Appication.Calculate не происходит, и при Application.CutCopyMode=False тоже не происходит, хотя я вчера сам в MSDN'е видел пример, где рядом с этой строкой стоит комментарий "Clear the Clipboard".

Убедиться достаточно легко - в Excele нажать Ctrl-C-C, чтобы открылся буфер обмена, и увидеть, что он ни фига не очищается. Единственный способ - нажать на кнопочку "Очистить все".

Вопрос с очисткой - на самом деле очень интересный. Я покопался в интернете, пока нашел немного.

Последняя запись в Буфере обмена Office совпадает с обычным Windows'ским Clipboard'ом. При использовании EmptyClipboard очищается именно Windows'ский, после этого через простую вставку ничего вставить нельзя, но очистки Буфера Офиса при этом не происходит!

Ну, что, будут у кого-нибудь какие-нибудь идеи? Самому уже интересно, хотя для меня, по крайней мере, вопрос практического смысла не имеет.

ЗЫ Кто-нибудь что-нибудь знает про DataObjects? Например, про них есть топик "What is the difference between the DataObject and the Clipboard?" в справке VBA...

[Gloom]

Так не катит?

Код: Выделить всё

Application.CommandBars("Clipboard").Controls("Очистить буфер обмена").Execute

[uhm]

Да что-то не катит, у меня, во всяком случае, Application.CommandBars("Clipboard").Controls.Count=0, соответственно, никакого Execute сделать не могу.

И вообще, по-моему, Clipboard - это не то.

[Talker]

Эффект, аналогичный использованию библиотечных функций дает код

Код: Выделить всё

Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard

Буфер обмена остается нетронутым, но clipboard очищается (кнопка Вставить становкится неактивной)

[Avtopic]

ActiveWorkbook.Save

[Talker]

Avtopic
Мне бы для Word'a такую фишку...

[Avtopic]

Так не катит?

Код: Выделить всё

Application.CommandBars("Clipboard").Controls("Очистить буфер обмена").Execute

CommandBars("Clipboard").Controls("Clear Clipboard").Execute
У меня работает очень хорошо (В Word-е, наверно и в Excel-е также будет работать).

[vrodo]

Спасибо, буду знать на будущее.

PS очень интересно тема поднялась прямо из небытия у меня с тех пор еще 4-5 проектов было

[Bagir]

CommandBars("Clipboard").Controls("Clear Clipboard").Execute
У меня работает очень хорошо (В Word-е, наверно и в Excel-е также будет работать).

А вот и нет. Экс 2003. CommandBars("Clipboard").Controls.Count = 0
Тут народ сильно путает буфер обмена винды и буфер обмена офиса. Буфер обмена офиса это отдельная их фишка (панелька), куда попадает все, что было скопировано в буфер обмена винды. И сколько не дрюч очисткой буфер обмена винды, к буферу обмена офиса это никак не относится.
На этой панельке есть кнопка "Очистить все". Конечно идея здравая сделать ей .Execute. Но увы не получается. Толи CommandBars("Clipboard") это не буфер обмена офиса, то ли кнопка "Очистить все" не попала в коллекцию .Controls.
А вообще то очень бы хотелось к ней подобраться.

[Bagir]

Код: Выделить всё

Private Sub Office_ClipBoard()
With Application
     If Val(.Version) = 9 Then
        With .CommandBars("ClipBoard").Controls(4)
             If .Enabled = True Then .Execute
        End With
     Else
       MsgBox "Пример только для MS Excel 2000"
     End If
End With
End Sub

Вот в том то и проблема.

[Bagir]

Теперь эта панель включает в себя не только "Буфер обмена", но еще и кучу другой ерунды. Можно легко проверить, что именно выбранно в данный момент.

Код: Выделить всё

If CommandBars("Task Pane").Controls(1).Caption Like "Буфер обмена*" Then

но как подобраться к кнопке "Очистить все" я еще не знаю. Возможно получится с помощью .FindControl, но угадывать ее ID без уверенности что он есть, дело не благодарное.

[alex77755]

как Вы наверно уже поняли у меня на страницах много формул

А разве буфер как-то связан с количеством формул на страницах?
сами по себе формулы и функции являются тормозами. И обилие их может привести к существенным тормозам.
Как-то мне заказывали написать UDF и прислали книгу. Она открывалась 40 минут. И после внесения изменений пересчитывалась столько же!
Уговорил убить почти все формулы, а для формирования отчётов написал пару макросов.
В итоге: книга открывается влёт. Формирование отчёта занимает 12с.
Но у меня почему-то даже мысли не возникло чистить буфера...

[Template]

А разве буфер как-то связан с количеством формул на страницах?

Дык, gacol для очистки буфера обмена предлагал использовать Application.Calculate при котором и будут пересчитаны формулы.

[Bagir]

Я не знаю чем поможет очистка буфера обмена windows для ускорения операций расчета формул на листе, ну может и так, не пробовал. Сам формулами совсем не злоупотребляю, оперативной памяти вагон, и поэтому все работает и так очень быстро. А вот Application.Calculate ни коем образом не относится к буферу обмена ни windows, ни офис (который на CommandBars("Task Pane")). По крайней мере в 2003.
ТС тут как раз и спрашивает, как подобраться к кнопке очистки буфера обмена офиса. Там есть кнопка "Очистить все", но нажать на нее кодом VBA не получается. Этой кнопки нет в коллекции CommandBars("Task Pane"). Если кто знает как на нее жмакнуть, пожалуйста напишите.