Thema Datum  Von Nutzer Rating
Antwort
04.03.2020 16:42:08 Lorenz Schmidt
NotSolved
04.03.2020 16:53:27 Gast2964
NotSolved
04.03.2020 19:28:39 Gast41671
NotSolved
04.03.2020 20:02:49 Gast79092
NotSolved
04.03.2020 20:35:20 Gast41671
NotSolved
04.03.2020 21:32:38 Gast30597
NotSolved
04.03.2020 22:31:09 Lorenz Schmidt
NotSolved
Blau Form erzeugen mit BuildFreeform?
 05.03.2020 11:30:04 Gast84055
NotSolved
05.03.2020 11:51:02 Lorenz Schmidt
NotSolved
05.03.2020 12:16:58 Gast59858
NotSolved
05.03.2020 13:56:57 Gast87054
Solved
05.03.2020 14:02:29 Lorenz Schmidt
Solved
05.03.2020 17:33:43 Gast87054
NotSolved

Ansicht des Beitrags:
Von:
Gast84055		 Datum:
05.03.2020 11:30:04		 Views:
443		 Rating:
     
Antwort:
  Ja
Thema:
Form erzeugen mit BuildFreeform?

Aha, dann etwa so:

Option Explicit
Option Base 0
 
Public Sub Test()
   
  Dim obj   As Object
  Dim vnt   As Variant
'  Dim grafik() As Long
  Dim Size  As Long
  Dim j     As Long
  
  '<weiterer_Code>
  
  With Worksheets("Tabelle1")
    
    ReDim vnt(0 To Size - 1)
    
    For j = 0 To (Size - 1)
      
      With .Range("L103").Offset(-grafik(j, 1), grafik(j, 0))
        .Interior.ColorIndex = 3
        vnt(j) = Array(.Left + .Width / 2, .Top + .Height / 2) 'x/y cell center
      End With
      
      If Not obj Is Nothing Then
        obj.AddNodes msoSegmentLine, msoEditingAuto, vnt(j)(0), vnt(j)(1)
      Else
        Set obj = .Shapes.BuildFreeform(msoEditingCorner, vnt(j)(0), vnt(j)(1))
      End If
      
    Next
    
    If Not obj Is Nothing Then
      Set obj = obj.ConvertToShape
      obj.Fill.Visible = msoFalse
      obj.Line.Visible = msoTrue
      obj.Line.ForeColor.RGB = rgbRed
    End If
    
  End With
  
End Sub

 

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
04.03.2020 16:42:08 Lorenz Schmidt
NotSolved
04.03.2020 16:53:27 Gast2964
NotSolved
04.03.2020 19:28:39 Gast41671
NotSolved
04.03.2020 20:02:49 Gast79092
NotSolved
04.03.2020 20:35:20 Gast41671
NotSolved
04.03.2020 21:32:38 Gast30597
NotSolved
04.03.2020 22:31:09 Lorenz Schmidt
NotSolved
Blau Form erzeugen mit BuildFreeform?
 05.03.2020 11:30:04 Gast84055
NotSolved
05.03.2020 11:51:02 Lorenz Schmidt
NotSolved
05.03.2020 12:16:58 Gast59858
NotSolved
05.03.2020 13:56:57 Gast87054
Solved
05.03.2020 14:02:29 Lorenz Schmidt
Solved
05.03.2020 17:33:43 Gast87054
NotSolved