Координаты и размеры объектов в Clipboard

@giaber · Регистрация: 16.09.2014

Привет всем!
Как можно макросом "вытащить" и "запихнуть" в Clipboard:
1) Круги: координаты центров и соответствующие радиусы/диаметры,
2) Прямоугольники/квадраты: координаты центров и размеры, или координаты вершин

цель - передать эту инфу в существующий Excel-макрос

Заранее благодарен!

Добавлено через 4 часа 10 минут
Вот, посидел час-два, накропал такое:

Visual Basic

Option Explicit
Dim shs As Shapes, sh As Shape
Dim ShapeWidth As Double, ShapeHeight As Double
Dim posX As Double, posY As Double
Dim Строка As String
 
Private Sub Form_Load()
 
ActiveDocument.Unit = cdrMillimeter
ActiveDocument.ReferencePoint = cdrBottomLeft
 
 
Set shs = Page.Shapes
 
Строка = ""
For Each sh In shs
    If sh.Type = cdrEllipseShape Then ' если Ellipse
       sh.GetBoundingBox posX, posY, ShapeWidth, ShapeHeight, False  ' получаем инфу об объекте
       If ShapeWidth = ShapeHeight Then Строка = Строка & "'" & posX & "'" & posY & "'" & ShapeWidth & "'" & ShapeHeight 'если круг (не эллипс)
    End If
Next sh
 
Строка = Right(Строка, Len(Строка) - 1) 'убираем первый знак - '
 
'Помещаем в Clipboard
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText Строка
.PutInClipboard
End With
 
End Sub

вроде работает, щас буду досконально каждую цифру результата проверять.
Может кто укажет на ошибки и/или корявость?

@_shark · 04.02.2020, 17:10

проще напрямую в ячейки записать нужную инфу, а Эксель-макросом ее оттуда считать

@giaber · 14.02.2020, 11:25 **[ТС]**

shark я очень извиняюсь - уехал в деревню, а когда вернулся - тема уже выветрилась из моей головы, поскольку тот макрос, что я написал работал для меня и я уже не заглядывал на форум.

вы писали"напрямую в ячейки записать" - буду благодарен за пример записи в уже открытую книгу/лист, а то что-то я уже часа полтора не могу разобраться.

@_shark · 15.02.2020, 12:16

в общих чертах код должен быть таким:

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("c:\book1.xls") 'открываем книгу
Set oSheet = oBook.Worksheets(1) 'первый лист

oSheet.Range("A1").Value = "Любые данные" 'адрес ячейки A1

все три вышеприведенные переменные должны быть объектного типа

@giaber · 15.02.2020, 20:54 **[ТС]**

shark спасибо! Но не будете ли вы так добры написать аналогичный пример для уже открытой книги? Понимаю что такие элементарные моменты положено знать самому, но туплю моментами сильно и искать нормально не получилось - несколько часов искал по фразам типа "запись в Excel из стороннего приложения" и тому подобные фразы, но не смог прояснить себе вопрос. Можно даже не пример, а правильно построенную поисковую фразу, по которой в поиске выйдет информация по теме. Заранее благодарен.

@_shark · 18.02.2020, 22:16

для уже открытой книги вам нужно всего лишь обратиться к нужному листу
Set oSheet = oBook.Worksheets("Лист1")

Вообще, могу посоветовать запустить Excel, там открыть тот же VBA и, как и в Кореловском VBA, можно по F2 посмотреть нужные функции. Та даже встроенный хелп есть с примерами. Я на Экселе не часто программирую, в основном больше по Корелу. Если у вас есть код, который в каком-то месте не работает, то могу подсказать что и как

@giaber · 25.02.2020, 08:06 **[ТС]**

Спасибо большое, shark!

@_shark 180 / 179 / 30 Регистрация: 11.10.2016 Сообщений: 570
	04.02.2020, 17:10	2
	проще напрямую в ячейки записать нужную инфу, а Эксель-макросом ее оттуда считать 0

@giaber 12 / 7 / 0 Регистрация: 16.09.2014 Сообщений: 248
	14.02.2020, 11:25 [ТС]	3
	shark я очень извиняюсь - уехал в деревню, а когда вернулся - тема уже выветрилась из моей головы, поскольку тот макрос, что я написал работал для меня и я уже не заглядывал на форум. вы писали"напрямую в ячейки записать" - буду благодарен за пример записи в уже открытую книгу/лист, а то что-то я уже часа полтора не могу разобраться. 0

@_shark 180 / 179 / 30 Регистрация: 11.10.2016 Сообщений: 570
	15.02.2020, 12:16	4
	Сообщение было отмечено giaber как решение Решение в общих чертах код должен быть таким: Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open("c:\book1.xls") 'открываем книгу Set oSheet = oBook.Worksheets(1) 'первый лист oSheet.Range("A1").Value = "Любые данные" 'адрес ячейки A1 все три вышеприведенные переменные должны быть объектного типа 1

@giaber 12 / 7 / 0 Регистрация: 16.09.2014 Сообщений: 248
	15.02.2020, 20:54 [ТС]	5
	shark спасибо! Но не будете ли вы так добры написать аналогичный пример для уже открытой книги? Понимаю что такие элементарные моменты положено знать самому, но туплю моментами сильно и искать нормально не получилось - несколько часов искал по фразам типа "запись в Excel из стороннего приложения" и тому подобные фразы, но не смог прояснить себе вопрос. Можно даже не пример, а правильно построенную поисковую фразу, по которой в поиске выйдет информация по теме. Заранее благодарен. 0

@_shark 180 / 179 / 30 Регистрация: 11.10.2016 Сообщений: 570
	18.02.2020, 22:16	6
	для уже открытой книги вам нужно всего лишь обратиться к нужному листу Set oSheet = oBook.Worksheets("Лист1") Вообще, могу посоветовать запустить Excel, там открыть тот же VBA и, как и в Кореловском VBA, можно по F2 посмотреть нужные функции. Та даже встроенный хелп есть с примерами. Я на Экселе не часто программирую, в основном больше по Корелу. Если у вас есть код, который в каком-то месте не работает, то могу подсказать что и как 1

@giaber 12 / 7 / 0 Регистрация: 16.09.2014 Сообщений: 248
	25.02.2020, 08:06 [ТС]	7
	Спасибо большое, shark! 0

Опции темы

Координаты и размеры объектов в Clipboard

Решение