Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA Farbton einer Grafik ändern

Per VBA Farbton einer Grafik ändern
06.10.2012 18:10:22
Günther
Hallo,
Über die Excel 2010 Oberfläche kann man von einer eingefügten Grafik den Farbton ändern: Bildtools|Anpassen|Farbe|Farbton ... z.B. 4700K oder 5300K etc.
Wie kann ich selbiges per VBA einstellen?
Aufzeichnen liefert leider keinen Code und bei den ShapeRange-Eigenschaften scheint diese Einstellung nicht dabei zu sein?
Wäre genial, wenn jemand eine Lösung kennt!
Vielen herzlichen Dank im voraus
Günther

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA Farbton einer Grafik ändern
06.10.2012 18:41:28
Josef

Hallo Günther,
Sub Makro1()
  Dim objShp As Picture
  
  Set objShp = ActiveSheet.Pictures("Grafik 1")
  
  With objShp
    .ShapeRange.Fill.PictureEffects.Item(1).EffectParameters("ColorTemperature").Value = 4700
  End With
  
End Sub


« Gruß Sepp »

Anzeige
AW: Per VBA Farbton einer Grafik ändern
06.10.2012 19:45:43
Günther
Hallo Sepp,
Vielen herzlichen Dank.
Dein Makro stürzte zwar bei frisch eingefügten Grafiken ab, aber den Weg zu folgendem Befehl habe ich Dank Deines Hinweises selbst gefunden:
.ShapeRange.Fill.PictureEffects.Insert(msoEffectColorTemperature).EffectParameters(1).Value = 3000
Grüße Günther

AW: Per VBA Farbton einer Grafik ändern
07.10.2012 13:45:31
Matze,Matthias
Hallo Günther,
deine Antwort steht auf offen, wir wissen nur noch nicht warum?
Du schreibst das Makro stürzt ab. Hat es eine Fehlermeldung,wenn ja welche?
Oder hast du mehere Shapes in der Datei?... Info, dann gehts eventuell weiter.
Warum benutzt du Excel zur Bildbearbeitung...da gibt es doch schönere Sachen.
Ich frag mich warum Josef nicht nachgehakt hat?
Gruß Matze

Anzeige
AW: Per VBA Farbton einer Grafik ändern
08.10.2012 00:23:36
Günther
Tschuldigung, habe das Hackerl gesetzt, als ich nach dem Absturz noch nicht weiter gewusst habe und danach vergessen, es zu deaktivieren.
Dass das Makro von Sepp bei einer frisch eingefügten Grafik abstürzt, ist selbstverständlich, da versucht wird, eine noch nicht angelegte Eigenschaft anzusprechen. Ich habe dann mit folgedem Code gearbeitet:
On Error Resume Next
'bei weiteren Malen
Selection.InlineShapes(1).Fill.PictureEffects.Item(1).EffectParameters("ColorTemperature").Value = 3900
'bei ersten Mal
If Err.Number 0 Then
Selection.InlineShapes(1).Fill.PictureEffects.Insert(msoEffectColorTemperature).EffectParameters(1).Value = 3900
End if
(Für Insider ist damit natürlich sofort erkennbar, dass es sich um Word-VBA handelt und somit in diesem Forum eigentlich nichts verloren hat - aber ich kenne kein Word-Forum, dass auch nur annähernd so professionell betreut wird wie dieses Forum :-))
Leider hatte die Sache noch einen entscheidenden Hacken: Wenn man das Makro auf 5-6 Bilder anwendet, kann Word das Dokument nicht mehr abspeichern :-( Man kommt beim Speichern in den "Speichern unter"-Dialog und kann dort entweder auf Abbrechen klicken (und anschließend das Dokument ohne Speichern schließen) oder einen Dateinamen angeben, was aber nichts weiter bewirkt, als dass man gleich wieder im selben Dialog landet = Unendlichschleife ...
Ich dachte zunächst, dass dann doch mein Makro Käse ist, aber derselbe Effekt tritt (zumindest in diesem Dokument) genauso auf, wenn man den Farbton per Menüband manuell verändert - Word läßt grüßen ...
Wenn ich vorher gewusst hätte, was das für ein Theater wird, hätte ich die rund 150 Fotos zuerst in einem Bildbearbeitungsprogramm angepasst. Aber da die Fotos ohnehin per VBA eingefügt werden, dachte ich halt, ich geb dort einfach den einen Befehl dazu ... (naja, nachher ist man immer klüger ...)
Grüße und nochmals Dank für die Unterstützung
Günther
Anzeige

302 Forumthreads zu ähnlichen Themen

If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
Anzeige
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Zugriff auf andere Programm/Daten in/exportieren
abu

Hallo Zusammen,
ich wuerde gerne wissen ob Excel in der Lage ist aus einem anderen Programm (Prologs) Daten zu exportiern und darzustellen und umgekehrt. Desweiteren wuerde ich gerne eine Routine in Excel programmieren (besser versuchen hinzubekommen) welche ueber den InternetExplorer auf e...
09.12.2008 10:50:51
Thread-ID: 1031278
11 Beiträge
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
if then interiorcolor
serge

Hallo Leute
ich möchte dass wenn die angeklicke Zelle Rot ist mein Makro ablauft (es können verschiedene Zellen sein.
Ich habe es mit:
Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Interior.ColorIndex = 3 Then "mein makro" End If End Sub
unter anderem...
21.01.2009 22:45:00
Thread-ID: 1042391
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
1
6
7
2
3
10
15
14
6
4
4
1
3
4
2
7
1
11
2
3
1
8
1