Ändern backcolor der Form

Ich versuche zu aktualisieren, die backcolor-von all den Bezeichnungen, ich habe auf einem Arbeitsblatt. Ich möchte, um anzugeben, die Farbe mit Hilfe der RGB-Werte, aber ich bin stecken in zwei Orten. Hier ist der code, den ich jetzt haben:

Sheet2.Shapes("Label 2").Fill.BackColor.RGB = RGB(220, 105, 0)

Dieser code wird ohne Fehler ausgeführt, aber es scheint keine Wirkung haben. Mein label beginnt weiß (oder vielleicht transparent) und ändert sich nie. Kann mir jemand sagen was ich tun muss, um diese Arbeit zu machen? Ich habe auch diese hat es aber nichts:

shp.Fill.Solid

Als Nächstes möchte ich capture mit diesem RGB-Wert in einer Variablen, so dass ich nicht haben, um re-Art wiederholt. Im Grunde genommen bin ich für so etwas suchen:

dim col as Color
col = RGB(220,105,0)
Sheet2.Shapes("Label 2").Fill.BackColor.RGB = col

Ich weiß, dass es keine variable mit dem Namen der Farbe, aber ich denke, man kann sehen, was ich zu tun versuche.

InformationsquelleAutor Alex | 2012-07-19

8

Versuchen Sie, die Einstellung der ForeColor statt:
```
Sheet2.Shapes("Label 2").Fill.ForeColor.RGB = RGB(220, 105, 0)
```
Ein guter Weg, um herauszufinden, was zu tun ist, um ein makro aufzuzeichnen, während Sie die Anpassung selbst. Untersuchen Sie den generierten code danach und verwenden Sie es als Ausgangspunkt.

Hier ist ein Beispiel für ein Verfahren, fügen Sie ein Rechteck, um das activesheet ist, fügen Sie etwas text, und dann die Farbe mit dem RGB-Werte:
```
Public Sub AddRectangleWithText()
    Dim textRectangle As Shape

    Set textRectangle = ActiveSheet.Shapes & _
        .AddShape(msoShapeRectangle, 10, 80, 250, 50)

    ' add your text
    textRectangle.TextFrame.Characters.Text = "Your mother was a hamster."

    ' fill the shape with the rgb color of your choice
    textRectangle.Fill.ForeColor.RGB = RGB(220, 105, 0)

End Sub
```
Danke. Ich habe versucht dies früher und bekam kein Ergebnis. Ändern kann ich die Höhe und Breite, und ein paar andere Dinge. Ich kann nichts mit Farben oder Grenzen. Wie für die Aufnahme, können Sie nicht etwas tun, wie diese mit einer Maus (ich glaube nicht), also ist das keine option.
Ich Frage mich, ob die Etiketten auch eine color-Eigenschaft. Ich habe versucht, diese mit einer textbox und es funktionierte problemlos. Ich glaube, ich werde wechseln Sie auf die Textfelder, da Sie im Grunde die gleiche Sache. Aber ich bin immer noch offen für Kommentare, wenn jemand keine. Danke.
Sie können auch ein Rechteck statt einem label. Sie können die Farben, die outlines, etc. einfach mit einer Form.
Danke. Ich dachte, dies, aber die Rechtecke haben nicht die Fähigkeit zur Aufnahme von text. Ich würde die Schicht auf ein Textfeld, über jedes Rechteck. Könnte meine einzige option. Meine textbox Idee von oben nicht funktioniert, weil es kein Mitglied von Formen für Textfelder, so kann ich nicht Durchlaufen. Das ist lächerlich.
Rechtecke kann text. So können die meisten Formen.

InformationsquelleAutor Jon Crowell
4

ForeColor tatsächlich steuert die Hintergrundfarbe des Kommentar/textbox(en) in Excel wie folgt;
- Activecell.Comment.Shape.Fill.ForeColor.RGB = RGB(240, 255, 250) 'Mint Green
als Comment/TextBox ForeColor ist die Vordergrundfarbe füllen über die Applicatoin Hintergrundfarbe.

InformationsquelleAutor GilBon

Ich brauchte, um hinzuzufügen

textRectangle.Fill.Visible = msoTrue

in Office 2016 für

textRectangle.Fill.ForeColor.RGB = RGB(220, 105, 0)

Wirkung.

InformationsquelleAutor muluman88

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.