Fehler Export Bild
11.09.2008 20:32:00
SteffenS
ich möchte einen Tabellenausschnitt gern in eine Userform kopieren.
Bei einem PC bekomm ich beim Aufruf den Fehler:
Die Methode Export für das Objekt _Chart ist fehlgeschlagen.
Bei einem Excel 2003 und 2000 PC funktioniert es.
Woran kann das liegen.
Hier noch mein Code
Private Sub UserForm_Initialize()
'Admin setzen
Set ADM = Workbooks(admin_datei).Sheets("bt_admin")
Set ADMB = Workbooks(ThisWorkbook.Name).Sheets("tb_a_anzeigen")
Dim MAllg As Worksheet
Set MAllg = Workbooks(ThisWorkbook.Name).Sheets("adm_einst")
'Änderungen aus
'Application.ScreenUpdating = False
Dim objPict As Object
Dim MyChart As Chart
Dim MName, bname, BBereich As String
Dim BRange As Range
MName = ADMB.Range("D8").Value 'Mappenname
bname = ADMB.Range("E8").Value 'Blattname
BBereich = ADMB.Range("G8").Value 'Bereich
'Bereich festlegen
Set BRange = Workbooks(MName).Sheets(bname).Range(BBereich)
BRange.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
ActiveSheet.PasteSpecial Format:="Bitmap", LINK:=False, DisplayAsIcon:=False
'File festlegen
Auswertungsfile = ThisWorkbook.Path & "\tb_anzeigen.gif"
Set objPict = Selection
With objPict
.Copy
Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width + 8, .Height + 8).Chart
End With
With MyChart
.Paste
.Export Auswertungsfile
.Parent.Delete
objPict.Delete
End With
End Sub
Danke im Voraus
Steffen Schmerler