Thema Datum  Von Nutzer Rating
Antwort
Rot Makro funtioniert im Einzelschritt (F8) aber nicht wenn ausgeführt (F5) (Bild exportieren)
 03.04.2018 15:51:55 Stefan
NotSolved

Ansicht des Beitrags:
Von:
Stefan		 Datum:
03.04.2018 15:51:55		 Views:
1178		 Rating:
     
Antwort:
  Ja
Thema:
Makro funtioniert im Einzelschritt (F8) aber nicht wenn ausgeführt (F5) (Bild exportieren)

Guten Tag zusammen :)

Ich bin gerade ein wenig verblüfft: wenn ich ein Makro Schritt für Schritt ausführe (F8) wird das erwartete Ergebnis (Bild exportieren) ausgeführt aber wenn ich das Makro per Tastenkombination starten möchte, wird nur ein leeres Bild erzeugt.

Hier die verwendete Befehle:

Sub BilderExportierenShape()
    
    Dim shBild As Shape
    Set shBild = ActiveSheet.Shapes(1)
    BildExportShape shBild
    Set shBild = Nothing
UserForm1.Show
End Sub

Sub BildExportShape(shExport As Shape)
    
    Dim chDiagramm As ChartObject
    Application.ScreenUpdating = False
    shExport.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shExport.Width, shExport.Height)
    With chDiagramm.Chart
        .Paste
        .Export Filename:="P:\TEST\temp.jpg", FilterName:="JPG"
    End With
    chDiagramm.Delete
    Set chDiagramm = Nothing
    Set shExport = Nothing
    Application.ScreenUpdating = True

End Sub

Woran könnte dies liegen?

Vielen Dank für eure Hilfe!
Beste Grüße, Stefan

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro funtioniert im Einzelschritt (F8) aber nicht wenn ausgeführt (F5) (Bild exportieren)
 03.04.2018 15:51:55 Stefan
NotSolved