habe folgendes Makro:
Private Sub UserForm_Activate()
Dim UserForm
'--------------- für Bildschirmanpassung --------------------------------------
Dim intY, intLast, intNext As Integer
Dim hwndForm As Long, hwndMenu As Long
With Me
.StartUpPosition = 0
.Top = 0
.Left = 0
.Height = GetDeviceCaps(GetDC(0&), HORZRES)
.Width = GetDeviceCaps(GetDC(0&), VERTRES)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(GC_CLASSNAMEMSEXCELFORM, Me.Caption)
If hwndForm 0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu 0 Then DeleteMenu hwndMenu, SC_MOVE, MF_BYCOMMAND
End If
Dim Diagramm, Dateiname
Set Diagramm = ActiveSheet.ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Dateiname = ThisWorkbook.Path & Application.PathSeparator & _
"Diagramm.gif"
' diagramm.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
End Sub
Habe mir dies im Forum gefunden, funktioniert auch soweit allerdings
wird das Diagramm nicht ganz angezeigt, wei kann ich dies durchführen.
mfg walter