Office: Rechteck ohne Füllung

Nerospeed · 7. August 2010

Hallo Leute,

ich versuche mich gerade an VBA mit Excel 2007. Ich möchte gerne ein Rechteck zeichnen lassen, welches keine Füllung hat. Man soll also sehen was in den Tabellen steht.
Ich finde einfach keinen weg dieses zu machen. Hat da einer eine Idee?

Danke
Gruss Nero

:)

jinx · 8. August 2010

Moin, Nero,

vielleicht hilft Dir der etwas überarbeitete Code einer Makro-Aufzeichnung aus Excel2000 weiter:

Code:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 121.5, 62.25, 177#, 116.25).Select
With Selection.ShapeRange
With .Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 9
.Transparency = 0.8 'hier ggf. Wert anpassen, 1 ganz durchsichtig
End With
With .Line
.Weight = 0.75
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Transparency = 0#
.Visible = msoTrue
.ForeColor.SchemeColor = 64
.BackColor.RGB = RGB(255, 255, 255)
End With
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nerospeed · 10. August 2010

Moin,

so das hat geklappt. Jetzt stehe ich aber vor einen weitern Problem. Ich habe eine Textbox eingefügt

Code:

Worksheets("print").Shapes.AddTextbox(msoTextOrientationHorizontal, 332, 112, _
79, 17).Select
Selection.Characters.Text = "Mein Zugang"
With Selection.Characters(Start:=1, Length:=11).Font
' .Name = "Arial"
.FontStyle = "Standard"
' .Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und möchte diese ohne Rahmen angezeigt bekommen. Habe schon
Code:

Selection.ShapeRange.Line.Weight = 0#
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

probiert nur will das Excel 2007 nicht.
Dazu jemand einen Tip?

Danke
Gruss Nero

jinx · 10. August 2010

Moin, Nerospeed,

die Visible-Eigenschaft der Linie gibt im Code per msoTrue an, dass sie angezeigt werden soll - sie nicht anzuzeigen kann per msoFalse erreicht werden...

Office: Rechteck ohne Füllung

Rechteck ohne Füllung

Rechteck ohne Füllung

Rechteck ohne Füllung

Rechteck ohne Füllung - Similar Threads - Rechteck Füllung

Teilweise abgerundetes Rechteck mit VBA

In einer einzelnen Folie Rechtecke weiterklicken

office 365 word Textumbruch rechteck (quadrat) geht nicht

RECHTECK 6*8 Blöcke 1- 48 min 6 Blöcke mit Gleichen abstand

Tägliche automatische Verschiebung eines Rechtecks

Shapes mit Anfangsnamen "Rechteck" löschen

Eingefügte Form (z.B. ein Rechteck) über VBA anspielen und beschriften