Как рисовать API-функциями из VBA?

Узнай цену своей работы

Формулировка задачи:

Стоит задача: средствами VBA создать растровое изображение (на основе заданных данных) и вставить его в документ.
В 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5