Как рисовать API-функциями из VBA?
Формулировка задачи:
Стоит задача: средствами VBA создать растровое изображение (на основе заданных данных) и вставить его в документ.
В VB можно нарисовать с помощью GDI API-функций, указывая дискриптор (hDC) Form или PictureBox. А потом просто скопировать в Clipboard Form.Image или PictureBox.Image.
Но VBA не поддерживает PictureBox, а у UserForm нет свойств hDC и Image
Что можно придумать? На чем рисовать?
В VB можно нарисовать с помощью GDI API-функций, указывая дискриптор (hDC) Form или PictureBox. А потом просто скопировать в Clipboard Form.Image или PictureBox.Image.
Но VBA не поддерживает PictureBox, а у UserForm нет свойств hDC и Image
Что можно придумать? На чем рисовать?
Решение задачи: «Как рисовать API-функциями из VBA?»
textual
Листинг программы
<font color="blue">Dim</font> hwndDesktop <font color="blue">As</font> <font color="blue">Long</font> <font color="blue">Dim</font> hdcDesktop <font color="blue">As</font> <font color="blue">Long</font> hwndDesktop = GetDesktopWindow hdcDesktop = GetDC(hwndDesktop) hCompBM = CreateCompatibleBitmap(hdcDesktop, размер_X, размер_Y) ReleaseDC hwndDesktop, hdcDesktop
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д