Страница: 1 |
Страница: 1 |
Вопрос: Работа с буфером обмена
Добавлено: 27.10.10 11:04
Автор вопроса: Mihail
Уважаемы, как можно программно объект Excelя передать в другую пргограмму через буфер обмена. ручками это просто а автоматом. Есть такой код
это мы копируем в буфер:
Public Sub MGVidelenie()
Application.CutCopyMode = False
Worksheets("kar").Shapes.Range(Array("а1", "ф2", "в2", "Sever", "Centr", "Yug", _
"Zagol", "LC1", "LC2", "LC3", "LT1", "LT2", "LT3")).Select
Selection.Copy
MVizPoint
End Sub
Public Sub MVizPoint()
Dim rv As Boolean
rv = Shell("C:\WINDOWS\system32\mspaint.exe", 1) 'запускаем point.exe
End Sub
и таже руками не вставляется?
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #1
Добавлено: 27.10.10 11:52
SendKeys(..) в помощь
Номер ответа: 2
Автор ответа:
Mihail
Вопросов: 2
Ответов: 1
Профиль | | #2
Добавлено: 11.11.10 11:52
Спасбо, Не помогает
Номер ответа: 3
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #3
Добавлено: 11.11.10 12:17
пожалуйста, плохо пробуешь