Re: Grafik automatisch formatieren

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hallo Walt,

Mein Gott - was du mir da zumutest ;-). Ich habe mich zwar in meinem
ersten Beitrag als Laie bezeichnet. Das muss ich jetzt ergänzen und
klar stellen: ich bin ein Banause.

Jeder hat mal nichts, aber auch gar nichts gewusst.

Oft kommt es nur auf die Initialzündung an.

Mach Dir ein neues Dokument mit einer Tabelle
mit 2 Reihen (Zeilen) und 2 Spalten.
Füge in jede Zelle eine Grafik aus Datei ein.
Z.B. Blue Hills.Jpg.
Ist, glaube ich, immer im Lieferumfang dabei.
Diese Grafik ist dann ein Inlineshape.

Zeichne irgendein Makro auf,
Extras, Makros, aufzeichnen,
zum Beispiel ein "a" nach der Tabelle eintippen.
Aufzeichnung beenden.

Dann Extras, Makros bearbeiten.
Und dieses hier zwischen die Zeilen
sub Macroname
....
end sub
hineinkopieren.

Dim oCll As Cell
For Each oCll In Selection.Tables(1).Range.Cells
With oCll.Range.InlineShapes(1)
.PictureFormat.ColorType = msoPictureGrayscale
End With
Next

Makroeditor schließen
Cursor in Tabelle stellen und Makro ausführen.

Übersetzung des Macros.
Reversiere Speicher für eine Zelle
Mache mit dem Bereich (Range) jeder Zelle
des Tabellenbereichs (Range),
in der der Cursor steht, dies:
Wandle das erste Inlineshape in Graustufen um.


--
Viel Glück

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003




.

Relevant Pages

  • Excel97: Spalten über DropDown in fixierter Tabelle ausblenden
    ... Tabelle ist freigegeben und läuft unter Excel 97. ... Dim rng As Range ... 'Zelle liegt ...
    (microsoft.public.de.excel)
  • Re: Werte aus Arbeitsblätter auslesen - mit VBA
    ... immer in der selben Zelle eines jeden Arbeitsblattes. ... In einem anderen Arbeitsblatt soll die Auswertung stattfinden. ... Nach meiner Meinung wäre es besser alle diese Daten in einer Tabelle zu ... dann auch dort in einer Spalte die Wochennummer aus dem Datum heraus per ...
    (microsoft.public.de.excel)
  • Re: Bei Wenn abfrage dann kopiere zelle in zelle
    ... mit einer Formel kannst Du nichts kopieren. ... Zelle A2 *anzeigen*, nicht kopieren. ...
    (microsoft.public.de.excel)
  • Re: DataGridView
    ... Kleine Fehlerroutine und das überschreiben des Connection Strings. ... Dafür müsste ja eigentlich das DataGridView wie geschaffen sein oder? ... dann im Datenquellenfenster diese Tabelle aufklappen ... Wenn man ein falsches Format in eine Zelle schreibt, ...
    (microsoft.public.de.german.entwickler.dotnet.csharp)
  • Re: Sortierproblem
    ... Wenn dein Cursor innerhalb der Tabelle steht, ... Sezte zu diesem Zweck deinen Cursor in Zelle A1, ... Sortieren und gebe dort an, nach welchen Spalten in welcher Reihenfolge ...
    (microsoft.public.de.excel)