Попытка сделать миниатюры электронных таблиц и отобразить их в форме пользователя - PullRequest
0 голосов
/ 19 апреля 2020

1-й раз на форуме.

Я сделал код VBA, где счета, заявления и т. Д. c. сканируются в виде документов .xlsx, каждая страница - рабочий лист. Поскольку некоторые документы имеют длину более 1 страницы, у меня будет пользовательская форма, которая позволит мне указать начальную и конечную страницы каждого документа. Я пытаюсь сделать миниатюрные изображения для каждой электронной таблицы, а затем использовать их в качестве изображения элемента управления в пользовательской форме. Я использую Scanned_docs.Worksheets (z) .Range ("A1: o25"). CopyPicture xlScreen, метод xlBitmap, чтобы скопировать изображение электронной таблицы в буфер обмена, однако, когда я попытался установить .picture = clipboard.paste it кажется, не принимает это. Я также пытался сохранить изображение буфера обмена в файл, но я не могу найти способ сделать это либо. У кого-нибудь есть мысли о том, как я могу это сделать? Вот пример кода

Scanned_docs.Worksheets (z) .Range ("A1: o25"). CopyPicture xlScreen, xlBitmap

Dim Img в качестве набора управления Img = UserForm1.Controls.Add ("Forms.Image.1")

With Img
    'Load Picture to Image Control
    .picture = Clipboard.Paste

    'Align the Picture Size
    .PictureSizeMode = fmPictureSizeModeStretch

    'Image Position
    .Left = 50 * z
    .Top = 10
End With
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...