2D-Line

Hallo Andreas,



ich meine schon die "2D-Version". Der 3D-Diagrammtyp heißt "3D-Oberfläche", der 2D-Diagrammtyp heißt "Oberfläche". Ich meine letztgenannten Typ. Bei diesem Typen sieht man eine 3D-Fläche von oben. Der 3D-Effekt dieses 2D-Objekts wird durch Beleuchtung/Verschattung
erzielt. Das ist das, was ich beeinflussen bzw. abschalten will.



Teile meines Diagramms werden so verschattet, dass sie nur sehr schlecht sichtbar sind.



Hast Du dazu noch einen Tipp?



Grüße

Felix

Option Explicit

Sub Test()

Dim wdApp As Object 'Word.Application

Dim wdDoc As Object 'Word.Document

Dim S As String

Dim EOFs, EOF, Lines, Data

Dim i As Long

'Verbindung zu Word herstellen

Set wdApp = GetObject(, "Word.Application")

Set wdDoc = wdApp.ActiveDocument

'Text der aktuellen Datei einlesen

S = wdDoc.Content.Text

'Steuerzeichen entfernen

S = TrimWhite(S)

'Satzendezeichen ersetzen

EOFs = Array(".", "!", "?", ":")

For Each EOF In EOFs

'Tip: Erst mit InStr prüfen ist am Ende meist schneller

If InStr(S, EOF) > 0 Then

S = Replace(S, EOF, EOF & vbNullChar)

End If

Next

'Splitten

Lines = Split(S, vbNullChar)

'In 2D-Array übertragen

ReDim Data(0 To UBound(Lines), 1 To 1)

For i = 0 To UBound(Lines)

Data(i, 1) = Lines(i)

Next

'In Tabelle schreiben

Range("A1").Resize(UBound(Data) + 1, 1).Value = Data

End Sub

Private Function TrimWhite(ByVal S As String) As String

'Return a string with white space removed

Dim i As Long

For i = 1 To Len(S)

If Asc(Mid$(S, i, 1)) < 32 Then Mid$(S, i, 1) = vbNullChar

Next

TrimWhite = Replace$(S, vbNullChar, "")

End Function

Hallo Felix,

rechte Maustaste
Diagrammtyp ändern
Einen Typ ohne 3D-Effekt (also 2D) auswählen.

Viele Grüße
Andreas

Der Laufzeitfehler sagt alles... hast Du schon mal den Debugger benutzt?

Lass den Code mal laufen bis der Fehler kommt.

Dann markierst Du das Wort Lines im Code und drückst SHIFT-F9 und klickst auf Hinzufügen.

Im Überwachungsfenster siehst Du nun Deine Variable und mit einem Klick auf das + kannst Du Dir den Inhalt von Lines ankucken.

Das Array Lines wird ganz einfach nicht mehr als ein Feld haben => Lines(0 to 0) und daher der RTE 9 wenn Du auf Lines(1) zugreifst.

Ergo wenn UBound(Lines) < 1 dann ist in der CSV nix drin und eine Ausgabe entfällt. Alles klar?

Andreas.

Hallo Andreas,

Kannst du Office Anwendungen von deinem IPad komplett deinstallieren
und neu installieren?

Mit freundlichen Grüssen
Galin Karlov
Microsoft Support Engineer