VBA: AddShape

Hallo beisammen,
ich brauche Hilfe für die richtige Syntax eines Codes, den ich zunächst über den Makrorekorder aufgezeichnet habe:
' ActiveSheet.Shapes.AddShape(msoShapeOval, 273#, 764.25, 80.25, 38.25).Select
' Selection.ShapeRange.Fill.Visible = msoFalse
' Selection.ShapeRange.Fill.Solid
' Selection.ShapeRange.Fill.Transparency = 0#
' Selection.ShapeRange.Line.Weight = 2.25
' Selection.ShapeRange.Line.DashStyle = msoLineSolid
' Selection.ShapeRange.Line.Style = msoLineSingle
' Selection.ShapeRange.Line.Transparency = 0#
' Selection.ShapeRange.Line.Visible = msoTrue
' Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
' Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
und nun bearbeitet habe. Allerdings kommt noch eine Fehlermeldung "Anwendungs- oder objektorientierter Fehler". Excel springt dann in die 1. Zeile des Codes.
With ActiveSheet
.Shapes.AddShape msoShapeOval, 273#, 764.25, 80.25, 38.25
.ShapeRange.Fill.Visible = msoFalse
.ShapeRange.Fill.Solid
.ShapeRange.Fill.Transparency = 0#
.ShapeRange.Line.Weight = 2.25
.ShapeRange.Line.DashStyle = msoLineSolid
.ShapeRange.Line.Style = msoLineSingle
.ShapeRange.Line.Transparency = 0#
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.Line.ForeColor.SchemeColor = 10
.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End With
Könnt Ihr mir weiterhelfen? Vielen Dank im voraus.
Gruß
Torsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub tt() Dim shp As Shape With ActiveSheet Set shp = .Shapes.AddShape(msoShapeOval, 273#, 764.25, 80.25, 38.25) End With With shp .Fill.Visible = msoFalse .Fill.Solid .Fill.Transparency = 0# .Line.Weight = 2.25 .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoTrue .Line.ForeColor.SchemeColor = 10 .Line.BackColor.RGB = RGB(255, 255, 255) End With End Sub

Sub tt() Dim shp As Shape Dim l As Single, t As Single, w As Single, h As Single, ws As Single, hs As Single With ActiveCell l = .Left t = .Top h = .Height w = .Width End With ws = 80.25 hs = 38.25 With ActiveSheet Set shp = .Shapes.AddShape(msoShapeOval, l + w / 2 - ws / 2, t + h / 2 - hs / 2, ws, hs) End With With shp .Fill.Visible = msoFalse .Fill.Solid .Fill.Transparency = 1# .Line.Weight = 2.25 .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoTrue .Line.ForeColor.SchemeColor = 10 .Line.BackColor.RGB = RGB(255, 255, 255) End With End Sub

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread