Thema Datum  Von Nutzer Rating
Antwort
23.11.2020 09:34:38 manuel
Solved
Blau VBA - Bild erstellen aus einer bestimmten Range
 23.11.2020 12:57:53 volti
NotSolved
23.11.2020 12:58:41 Gast43456
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
23.11.2020 12:57:53		 Views:
701		 Rating:
     
Antwort:
  Ja
Thema:
VBA - Bild erstellen aus einer bestimmten Range

Hallo Manuell,

möglicherweise hängt es damit zusammen, dass Tabelle8 evtl.nicht das aktive Blatt ist....

Hier noch eine Alternative zum Exportieren eines Bereiches...

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Bild_Export()
 Dim strFile As String, Wsh As Worksheet
  
 strFile = ActiveWorkbook.Path & "\ARBEITSBERICHTE\Vorschau.gif" 'Pfad und Dateiname für das Bild
  
 Set Wsh = ActiveSheet
 With Tabelle8.Range("A1:L50")
    
   On Error Resume Next
   Do
     .CopyPicture Appearance:=xlScreen, Format:=xlPicture 'xlBitmap
     If Err.Number = 0 Then Exit Do
     Err.Clear
   Loop
   On Error GoTo ErrExit
    
   With .Parent.ChartObjects.Add(.Left, .Top, .Width, .Height)
     .Activate
     .Chart.Paste
     .Border.LineStyle = -4142           'Ohne Rahmen
     .Chart.Export strFile
   End With
   .Parent.ChartObjects(.Parent.ChartObjects.Count).Delete
 
 End With
 Wsh.Activate
  
ErrExit:
 
End Sub

 

viele Grüße

Karl-Heinz

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
23.11.2020 09:34:38 manuel
Solved
Blau VBA - Bild erstellen aus einer bestimmten Range
 23.11.2020 12:57:53 volti
NotSolved
23.11.2020 12:58:41 Gast43456
NotSolved