Probleme mit VBA (Grafik erstellen)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andy
Der Code kommt mir bekannt vor... ;-)
Ich hab' den Code mehrmals ausgeführt. Bei mir ist es tatsächlich so, dass ca. bei jeder fünften Ausführung das Bild zu gross wird, also ein bisschen mehr als der graue Bereich als Bild exportiert wird. Die Ursache konnte ich so auf die Schnelle nicht erkennen.
Versuch mal diesen Code:


Sub Bild_erstellen()
ActiveWorkbook.Unprotect
Dim chtPicture As Chart
Dim strSheetName As String
Application.ScreenUpdating = False
strSheetName = ActiveSheet.Name
ActiveSheet.Range("A1").Select       'NEU
ActiveSheet.Range("A1:BC69").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chtPicture = Charts.Add
chtPicture.Paste
Application.ScreenUpdating = True    'NEU
Application.ScreenUpdating = False   'NEU
chtPicture.Export ActiveWorkbook.Path & "\" & strSheetName & ".jpg"
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Set chtPicture = Nothing
Application.ScreenUpdating = True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Die drei mit 'NEU' markierten Zeilen habe ich neu hinzugefügt. Bei neue Zeile "ActiveSheet.Range("A1").Select" stellt sicher, dass vor dem Kopieren des Zellbereiches als Bild eine Zelle selektiert ist (und nicht eine CheckBox oder dergleichen). Mit ScreenUpdating = True/False wird explizit eine Bildschirmaktualisierung ausgelöst, damit das mit Paste eingefügte Bild tatsächlich auf dem Diagrammblatt angezeigt wird.
Nach Einfügen dieser Codezeilen konnte ich keine Probleme mehr feststellen. Kann allerdings auch Zufall sein.
Gruss
Philipp
¦¦¦ xlam - Excel and more!
¦¦¦ http://195.186.84.74/index.htm

Hallo Andy,
du exportierst das ganze Diagrammblatt. Das ist natürlich größer wie dein Bild. Du musst einen Diagrammbereich definieren der der Größe des Bildes entspricht. Das geht so:

Sub Bild_erstellen()
  ActiveWorkbook.Unprotect
  Dim myChartObject As ChartObject, int_with As Integer, int_hight As Integer
  Dim chtPicture As Chart
  Dim strSheetName As String
  Application.ScreenUpdating = False
  strSheetName = ActiveSheet.Name
  ActiveSheet.Range("A1:BC69").CopyPicture Appearance:=xlScreen, Format:=xlPicture
  int_with = Range("A1:BC69").Width - 36
  int_hight = Range("A1:BC69").Height - 30
  Set chtPicture = Charts.Add
  Set myChartObject = ActiveChart.ChartObjects.Add(0, 0, int_with, int_hight)
  With myChartObject.Chart
    .Paste
    .Export ActiveWorkbook.Path & "\" & strSheetName & ".jpg"
  End With
  Application.DisplayAlerts = False
  chtPicture.Delete
  Application.DisplayAlerts = True
  Set chtPicture = Nothing
  Application.ScreenUpdating = True
  ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Probleme mit VBA (Grafik erstellen)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

296 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Probleme mit VBA (Grafik erstellen)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

296 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread