Есть ли возможность вставки на листе фотографий (расположенных, например, в неко папке), с автоматическим изменением их размера, чтобы на 1-й стр (при печати) размещалось бы нужное количество фоток (2-6)в конкретно установленных местах (чтобы они не сливались друг с другом иначе потом двигать придется)? :-)
Внедрение фоток
28.01.2010 17:53:03
|
|
|
|
28.01.2010 18:40:54
Да, такая возможность есть.
Пример можно поглядеть в этой теме: Можно даже обрезать изображения перед вставкой: Private Sub test0982039482() Dim cell As Range: Set cell = ActiveCell Dim sh As Worksheet: Set sh = ActiveSheet Dim filename As String, ph As Picture filename = "C:\Documents and Settings\Игорь\Рабочий стол\img_1857716.jpg" Set ph = ВставитьКартинку(cell, filename) CropPicture ph, cell, 19, 12, 110, 6 End Sub Function CropPicture(ByRef pic As Picture, ByRef cell As Range, _ Optional ByVal CropLeft As Integer = 0, Optional ByVal CropRight As Integer = 0, _ Optional ByVal CropTop As Integer = 0, Optional ByVal CropBottom As Integer = 0) As Shape Dim sha As Shape: Set sha = pic.TopLeftCell.Worksheet.Shapes(pic.Name) h = sha.Height: w = sha.Width If CropTop Then sha.PictureFormat.CropTop = CropTop / 100 * h If CropBottom Then sha.PictureFormat.CropBottom = CropBottom / 100 * h If CropLeft Then sha.PictureFormat.CropLeft = CropLeft / 100 * w If CropRight Then sha.PictureFormat.CropRight = CropRight / 100 * w sha.Top = cell.Top: sha.Left = cell.Left sha.Width = cell.Width: sha.Height = cell.Height End Function |
|
|
|
28.01.2010 18:45:34
Можно также макросом в цикле вставлять картинки в нужные ячейки, и расставлять разрывы страниц, чтобы получалось что-то вроде этого:<BR>
|
|
|
|
Читают тему