1

на лист эксель пользоватьль вставил картинку - чертеж.
надо по клику мышки снять координаты поворотной точки в pixel x y ?
фактически оцифровка , но для пользователя - школьник чайник пожилой блондинка ? как снять координаты (X Y PIXELS) по клику в активном окне?

у кого-нибудь есть исходники без заморочек ?


2
создается диаграмма в excel надо сохранить в определенных размерах и dpi
однако выявляеся зависимость от масштаба

Sub EXCEL_CHART_TO_FILEJPG()
'
' Макрос7 Макрос
' МАСШТАБ=208%
Stop
'
' DPI=200
ActiveWindow.Zoom = 208
ActiveChart.Export Filename:="D:/Papa/00 CHART XLS/ACTIVECHART 201101408.JPG", FilterName:="JPG", Interactive:=False
ActiveChart.Export Filename:="D:/Papa/00 CHART XLS/ACTIVECHART 201101408.JPEG", FilterName:="JPEG" ', Interactive:=False
'DPI=96
Stop

ActiveWindow.Zoom = 100 'DPI=96 ВСЕГДА
ActiveChart.PixelsPerInch = 150

ActiveChart.Export Filename:="D:/Papa/00 CHART XLS/ACTIVECHART 201101408.BMP", FilterName:="BMP"
'ActiveChart.Export Filename:="D:/Papa/00 CHART XLS/ACTIVECHART 201101408.DIB", FilterName:="DIB"
Stop

'ActiveChart.Export Filename:="D:/Papa/00 CHART XLS/ACTIVECHART.GIF", FilterName:="GIF"
'DPI=199,669 FOR 208% DPI=200,635 FOR 209%

ActiveWindow.Zoom = 209 'DPI 200,635
ActiveChart.Export Filename:="D:/Papa/00 CHART XLS/ACTIVECHART 201101408.PNG", FilterName:="PNG"
'Range("D1").Select
' ActiveWindow.Zoom = 100
' ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveWindow.Zoom = 100
'
End Sub



Нужно получить картинку диаграммы без артифактов 1:500 см точно
В чем проблема почему bmp - const?
3
возникла еще заморочка
dpi x = dpi y всегда?

беру координаты 2 pixel(10cm по линейке) c jpg 200 dpi (nero photosnap viewer)
х у
5589 6539
5646 4960
КОРЕНЬ((х2-х3)^2+(у2-у3)^2)= 1580,028481 pixel
1580,028481 pixel / 200 dpi = 7,900142404 inch
1 inch = 2,54 cm
7,900142404 inch*2,54 cm=20,06636171 cм
думаю истина в 400 dpi - ?

но как самому определить dpi файлов

4
ПОД ДИАГРАММОЙ ВСТАВЛЕН РИСУНОК
ЗАЛИВКИ НЕТ У ДИАГРАММЫ – НАЛОЖЕНИЕ ДИАГРАММЫ НА РИСУНОК
ИЗМЕНЯЮ РАЗМЕРЫ ДИАГРАММЫ ДО СОВПАДЕНИЯ С РИСУНКОМ
RANGE( B5:X350)

ХОЧУ ВСЕ ЧТО НА SHEET СОХРАНИТЬ НА JPG ЧЕРЕЗ VBA МИНУЯ MSPAINT.EXE




с благодарностью за ваши знания
переслали к вам с am.rusimport.ru