title image


Smiley das kostet dich jetzt ein online Bier :-)
Hi



Sub bild()

Application.ScreenUpdating = False

Dim bild As Chart

Dim ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet

Selection.CopyPicture

Set bild = Charts.Add

On Error Resume Next

bild.ChartArea.Clear

bild.Location Where:=xlLocationAsObject, Name:=ws.Name

Set bild = ActiveChart

bild.Paste

With ActiveSheet.Shapes(Right(bild.Name, InStr(1, bild.Name, "Dia") + 1))

.Height = Selection.ShapeRange.Height + 5

.Width = Selection.ShapeRange.Width + 5

bild.Export Filename:="p:\bild\test.gif", filterName:="gif"

.Delete

End With

Application.ScreenUpdating = True

End Sub





oder das wird ein Eintrag fürs Archiv!



:-)



p.s getestet auf 2003








Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: