Thema Datum  Von Nutzer Rating
Antwort
Rot add shapes
10.02.2020 22:16:39 Julian
NotSolved
11.02.2020 00:16:43 Gast62269
NotSolved
11.02.2020 07:43:08 Gast78862
NotSolved
11.02.2020 12:31:43 Gast3333
NotSolved
11.02.2020 14:55:02 Gast40129
NotSolved
11.02.2020 20:01:45 Gast22818
NotSolved
11.02.2020 20:32:25 Gast41262
NotSolved
11.02.2020 21:30:53 Gast11163
NotSolved
11.02.2020 21:34:12 Gast5232
NotSolved
11.02.2020 21:42:08 Gast46693
NotSolved
11.02.2020 21:52:50 Gast28528
NotSolved
11.02.2020 23:34:18 Gast31568
NotSolved
11.02.2020 23:41:19 Gast51580
NotSolved
12.02.2020 17:13:12 Gast3541
NotSolved

Ansicht des Beitrags:
Von:
Julian
Datum:
10.02.2020 22:16:39
Views:
146
Rating: Antwort:
  Ja
Thema:
add shapes

Hallo, ich füge hiermit ein Rechteck ein:

 

Sub test3()

Dim shp As Shape
  With ActiveSheet
    Set shp = .Shapes.AddShape(msoShapeRectangle, 100, 0, 140, 60)
  End With
    
  
With shp
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Fill.Transparency = 0#
    .Line.Weight = 0.5
    .Line.DashStyle = msoLineSolid
    .Line.Style = msoLineSingle
    .Line.Transparency = 0
    .Line.Visible = msoTrue
    .Line.ForeColor.SchemeColor = 8
    .Line.BackColor.RGB = RGB(0, 0, 200)
    .Fill.ForeColor.RGB = RGB(140, 184, 183)
End With


End Sub
 
 
Funktioniert auch. Nun möchte ich aber die Transparents der Hintergrundfarbe ändern. Wenn ich den Wert bei     .Fill.Transparency = 0# auf 50 ändere kommt eine Fehlermeldung. Warum?
 
Ich habe den Code aus dem Internet bezogen. Ich weiß aber nicht genau warum hier manchmal .line und .fill verwendet wird. Line für die Umrandung vermutlich? 
 
danke
 
 
 
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot add shapes
10.02.2020 22:16:39 Julian
NotSolved
11.02.2020 00:16:43 Gast62269
NotSolved
11.02.2020 07:43:08 Gast78862
NotSolved
11.02.2020 12:31:43 Gast3333
NotSolved
11.02.2020 14:55:02 Gast40129
NotSolved
11.02.2020 20:01:45 Gast22818
NotSolved
11.02.2020 20:32:25 Gast41262
NotSolved
11.02.2020 21:30:53 Gast11163
NotSolved
11.02.2020 21:34:12 Gast5232
NotSolved
11.02.2020 21:42:08 Gast46693
NotSolved
11.02.2020 21:52:50 Gast28528
NotSolved
11.02.2020 23:34:18 Gast31568
NotSolved
11.02.2020 23:41:19 Gast51580
NotSolved
12.02.2020 17:13:12 Gast3541
NotSolved