Office: (Office 2016) Diargramm der Bildgröße anpassen funktioniert nicht

Hallo Zusammen!

Ich hab mal wieder ein Problem und finde einfach keine Lösung. Wahrscheinlich ist es einfach nur ein kleiner Denkfehler - aber ich komme nicht drauf.

Ich will die Größe eines Diagramms auf die Größe des in der UF befindlichen Bildes (in dem es angezeigt werden soll) skalieren. Komischerweise funktioniert es mit 2 Diagrammen - mit 3 weiteren aber nicht (die Diagramme befinden sich auf verschiedenen Arbeitsblättern). Ich bin ratlos....

Code:

Public Sub Diagramm2Userform(UF As Object, Ws As Worksheet, PicNbr As Integer, Optional DiaNbr As Integer = 1)                
 Dim Diagramm As Chart
 Dim DateiName
 
    On Error GoTo cls
    Set Diagramm = Ws.ChartObjects(DiaNbr).Chart
    With UF
        Diagramm.Parent.Width = .Controls("Image" & PicNbr).Width '* 1.44
        Diagramm.Parent.Height = .Controls("Image" & PicNbr).Height '* 1.44
    End With
    DateiName = ThisWorkbook.Path & Application.PathSeparator & "Daten" & Application.PathSeparator & "Image" & PicNbr & ".gif"
    Diagramm.Export Filename:=DateiName, FilterName:="GIF"
    UF.Controls("Image" & PicNbr).Picture = LoadPicture(DateiName)
    Kill DateiName
cls:
    If Err Then If Testen Then MsgBox "Fehlermeldung nur im Testmodus": MsgBox "Diagramm2Userform:" & Err.Description
End Sub

Bei manchen Diagrammen muss ich den Faktor 1.44, bei anderen 1.65, hernehmen, um auf die richtige Größe zu kommen. Die Einstellung der Diagramme sind, meines Erachtens, gleich.

Wenn ich jedoch ein Diagramm in das Arbeitsblatt kopiere, in dem die Größe passt, dann passt auch dieses kopierte Diagramm. Ich verstehe es nicht....

Vielen Dank für eure Tips und Hilfe

Grüße
Chris

 

Hi Chris,

wie hast du die Eigenschaft PictureSizeMode für das Image eingestellt? Versuche es einfach mal mit Einstellung 3 - fmPictureSizeModeZoom

Bis später,
Karin

 

Hi Karin,

dank für deine Antwort.

Bei Zoom oder Stretch ist das Diagramm nicht mehr schön und wird pixelig. Z.Z. habe ich den Workaround mit dem Multiplikator (1.44 oder 1.65).

Es ist schon komisch, dass es nur auf einem Arbeitsblatt funktioniert. Auf den anderen nicht. Auch wenn ich zwischen den Arbeitsblättern und den Images hin und her wechsele, dann hängt es immer am Arbeitsblatt.

Ich kann aber keine Unterschiede finden...

Grüße
Chris

 

Hi Karin,

ich haben den Fehler gefunden.

Der Zoom des Arbeitsblattes hat einen Einfluss auf die Bildgröße. Wenn ich so drüber nachdenke macht das auch Sinn, da ich ja genau dieses Bild kopiere.

Trotzdem vielen Dank für deine Unterstützung :)))

Grüße
Chris