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