Thema Datum  Von Nutzer Rating
Antwort
Rot OVAL erstellen falls nicht vorhanden
 07.10.2016 14:17:33 Tribal
NotSolved
07.10.2016 18:17:54 Gast35707
NotSolved

Ansicht des Beitrags:
Von:
Tribal		 Datum:
07.10.2016 14:17:33		 Views:
982		 Rating:
     
Antwort:
  Ja
Thema:
OVAL erstellen falls nicht vorhanden
Hallo zusammen, Die Funktion des Erstellens und Einfärbens ist kein Problem, jedoch habe ich Probleme bei der Bedingten Erstellung. Dies benötige ich, falls das Form bereits existent ist. Im Folgenden ein kleiner Ausschnitt meines bisherigen codes. '**********************************************************' ' erstelle ein OVAL ' ' benenne OVAL in "Roboter" ' ' Trage "Roboter" in OVAL ein ' ' Setzte Schriftfarbe auf Schwarz und Schriftgröße auf 3 ' ' setze Linienfarbe auf Schwarz ' ' setze Füllfarbe auf "Status" ' '**********************************************************' ' Funktionsweise: ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '**********************************************************' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' OVAL erstellen iRow = 2 a = 50 Do Sheets("Auflistung").Select Roboter = ActiveSheet.Cells(iRow, sRoboter).Value 'Farbe auslesen aus Zelle SF = Cells(iRow, sStatus).Interior.Color 'Ermittelten Dezimal Farbcode in RGB (Binär) Umwandeln R = SF And 255 G = (SF \ 256) And 255 B = SF \ 65536 Sheets(Cells(iRow, sLinie).Value).Select 'If (existsItem(ActiveSheet.Shapes, Roboter)) Then 'Else ActiveSheet.Shapes.AddShape(msoShapeOval, a, a, _ 35, 35).Select Selection.ShapeRange.Name = Roboter Selection.Name = Roboter Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0) Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Roboter With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 9). _ ParagraphFormat .FirstLineIndent = 0 .Alignment = msoAlignCenter End With With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 9).Font .NameComplexScript = "+mn-cs" .NameFarEast = "+mn-ea" .Fill.Visible = msoTrue .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1 .Fill.ForeColor.TintAndShade = 0 .Fill.ForeColor.Brightness = 0 .Fill.Transparency = 0 .Fill.Solid .Size = 3 .Name = "+mn-lt" End With Selection.ShapeRange.Fill.Visible = msoFalse Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Roboter With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.RGB = RGB(R, G, B) .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 .Solid End With 'End If iRow = iRow + 1 a = a + 10 Sheets("Auflistung").Select Loop Until Cells(iRow, sRoboter) = "IR4118R01"

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot OVAL erstellen falls nicht vorhanden
 07.10.2016 14:17:33 Tribal
NotSolved
07.10.2016 18:17:54 Gast35707
NotSolved