Grafik drehen in Excel und Farbcode von Spalten
Spalten
kann man eine Grafik in Excel drehen, linksrum um 90 Altgrad?
Ich dachte irgendwie mit Rotate, aber das Wort ist nicht bekannt.
Mit Hilfe eines Fremdprogramms, Irfanview, habe ich das so gelöst:
Sub BildDrehen()
Dim appIrfan, appExcel
ActiveSheet.Shapes("Picture 1").Copy
SendKeys "^vl^c"
appIrfan = Shell("C:\Programme\IrfanView\i_view32.exe", vbMaximizedFocus)
Set appExcel = GetObject(, "Excel.Application")
appExcel.Visible = True
Range("A1").Select
SendKeys "^v"
End Sub
es klappt auch, aber a) das Fremdprogramm, b) Sendkeys
Hintergrund des Ganzen ist, daß in einem anderen Forum jmd. Exceltabellen in Word einfügen will.
Das Worddocument wird im Hochformat gedruckt, die Exceltabbellen sollen eingefügt werden, aber um 90 Altgrad verdreht.
Quasi so:
http://www.bilder-space.de/show.php?file=06.08gPt4vTaUMQCZZNo.jpg
Eine andere Idee von mir dazu war diese:
Sub nn()
Dim Zei, Spa, wks1, wks2
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
With wks2
For Zei = 1 To 10
For Spa = 1 To 5
.Cells(Spa, Zei) = wks1.Cells(Zei, 6 - Spa)
Next Spa
Next Zei
With .Range("A1:J5")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 90
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
.Columns.AutoFit
End With
End With
End Sub
Wenn das durchläuft sieht es gar nicht schlecht aus. Nur, die Zeilen- und Spaltenbeschriftungen sind falsch.
Das kann ich schon hinbiegen, dazu bräuchte ich aber die Farbwerte von diesem Grau oder was das eine Farbe ist bei den Bezeichnungen.
Danke, und andere Ideen wie das zu lösen ist sind hochwillkommen.
Gruß
Reinhard