ник: Дядя Федор
Этот вопрос уже обсуждался. Поищите на форуме. Посмотрите в конструкторе свойства. По результатам обсуждения я делаю так
(Это в отчете)
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim dk As Double, h As Long, w As Long
w = 13.5 * 567 'Начальная высота фото
h = w * 3 / 4
On Error Resume Next
Me.RIS.Picture = Me.Filename 'загнали фото
'масштабирование по реальным значениям
dk = Me.RIS.ImageHeight / Me.RIS.ImageWidth
If dk >= 1 Then
Me.RIS.Height = h
Me.RIS.Width = h / dk
Else
Me.RIS.Height = w * dk
Me.RIS.Width = w
End If
End Sub
|