Trinn 1: Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vindu

Trinn 2:. Klikk på Insert > Modul, og lim inn følgende makroen i modulen Window

VBA:.. Resize flere celler til å passe sine bilder
Sub ResizePictureCells () for hvert bilde i ActiveSheet.DrawingObjectsPictureTop = Picture.TopPictureLeft = Picture.LeftPictureHeight = Picture.HeightPictureWidth = Picture.WidthFor N = 2 256If Columns (N) .Left > PictureLeft ThenPictureColumn = N - 1Exit forskjeftet IfNext nfor N = 2 til 65536If Rows (N) .Top > PictureTop ThenPictureRow = N - 1Exit forskjeftet IfNext NRows (PictureRow) .RowHeight = PictureHeightColumns (PictureColumn) .ColumnWidth = PictureWidth * (54.29 /288) Picture.Top = Cells (PictureRow, PictureColumn) .TopPicture.Left = Cells (PictureRow, PictureColumn) .LeftNext PictureEnd Sub

Trinn 3:. Trykk F5 for å kjøre denne makroen

Nå i gjeldende regneark, hvis det er bilder, cellen under et bilde vil bli endret for å passe på bildet over det. Se følgende skjermbilde: