| |
Info |
|
|
|
Esempi |
|
|
|
Linguaggio |
|
|
|
Librerie |
|
|
|
Formule |
|
|
|
|
|
|
|
|
|
Ultimi Inseriti |
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
Una semplice procedura che permette di adattare un'immagine alla cella in cui è contenuta (anche se unita ad altre) riservando uno spazio di bordo (Margine) e allinendola orizzontalmente al centro.
Sub Adatta_Immagine( Cella As Range, Immagine As Picture, Optional Margine As Integer = 1)
Dim ImgRatio As Single
Dim CellRatio As Single
CellH = Cella.Height
CellW = Cella.Width
ImgRatio = Immagine.Width / Immagine.Height
CellRatio = (CellW - Margine * 2) / (CellH - Margine * 2)
If (ImgRatio / CellRatio > 1) Then
Immagine.Width = CellW - Margine * 2
Immagine.Height = Immagine.Width / ImgRatio
Immagine.Top = Cella.Top + Margine + _
(CellH - Margine * 2 - Immagine.Width / ImgRatio) / 2
Immagine. Left = Cella. Left + Margine
Else
Immagine.Height = CellH - Margine * 2
Immagine.Width = Immagine.Height * ImgRatio
Immagine.Top = Cella.Top + Margine
Immagine. Left = Cella. Left + Margine + _
(CellW - Margine * 2 - Immagine.Height * ImgRatio) / 2
End If
End Sub
|
|
|
