Bildbreite und -höhe fehlerhaft
03.09.2005 12:50:44
Norman
ich lade ein Bild und will die Größe der Zelle dann auf die Bildbreite und -höhe anpassen. Die Zelle wird aber dadurch viel breiter als das Bild. Warum? Interessant ist auch, dass ich das Bild ein mal als BMP und ein mal als JPG lade, beide Bilder haben die selbe Größe, liefern nach dem Laden aber in VBA unterschiedliche Größen !?!?!?
Codeauszug:
Sub test()
Application.ScreenUpdating = False
Dim newpic As Object
Set newpic = ws.Pictures.Insert(ThisWorkbook.path & "\Bild.bmp")
newpic.Top = ws.Cells(1, 1).Top + 1
newpic.Left = ws.Cells(1, 1).Left + 1
If newpic.Width > ws.Cells(1, 1).ColumnWidth Then
ws.Cells(1, 1).ColumnWidth = newpic.Width
End If
If newpic.Height > ws.Cells(1, 1).RowHeight Then
ws.Cells(1, 1).RowHeight = newpic.Height
End If
newpic.Placement = xlMoveAndSize
Application.ScreenUpdating = True
End Sub
Das Piccy findet ihr unter: www.aeotek.de/Bild.bmp
(Ist nur ein Dummy-Pic)
Vielen Dank für Eure Hilfe
Norman