Autoshapes mit VBA aus Zelle
03.01.2006 14:45:20
Horn
ich möchte per VBA Autoshapes erstellen, den Shape_Type dabei aber aus einer Zelle lesen. Wenn ich das tue, dann erhalte ich immer die Meldung "Type mismatch (13). Er erwartet als Typ einen MsoAutoShapeType bekommt aber von mir aus der Zelle einen String. Was kann ich tun?
Jetzige Version:
Dim shape_type As MsoAutoShapeType
shape_type = Sheets(sheetname).Cells(3, 5)
ActiveSheet.Shapes.AddShape(shape_type, shape_left, shape_top, 100, 100).Name = shape_name
Danke!
Sebastian