Thema Datum  Von Nutzer Rating
Antwort
09.10.2020 01:25:38 Alyssa
NotSolved
Blau Pfeilerstellung
09.10.2020 14:07:46 Gast76169
NotSolved
10.10.2020 10:25:20 Gast38569
NotSolved
10.10.2020 12:31:52 Gast14954
NotSolved
10.10.2020 10:20:49 Gast55863
NotSolved
12.10.2020 10:26:24 Gast89237
NotSolved

Ansicht des Beitrags:
Von:
Gast76169		 Datum:
09.10.2020 14:07:46		 Views:
632		 Rating:
     
Antwort:
  Ja
Thema:
Pfeilerstellung 
  With ActiveSheet.Shapes.AddLine(Ax, Ay, Bx, By)
    
    Dim strName As String
    strName = "_ShapeArrow_" & Range(ZA).Address(0, 0) & "_to_" & Range(ZB).Address(0, 0)
    
    If ShapeExists(strName) Then
      
      Stop
      'Shapes gegenseitig ausrichten
      
    Else
      .Name = strName
    End If
  End With

In dem Fall musst du alle Formen (Shapes) ermitteln die genau diese zwei Zellen als Ziel haben. Ich mach das hier z.B. über den Namen.

Vorschlagen würde ich aber, du legst dir ein (verstecktes) Tabellenblatt an und (merkst) schreibst dir dort die Namen der Shapes auf die den gleichen Anfang und Ende haben, so kannst du die Gruppen leichter zuordnen und den Platz aufteilen.

Public Function ShapeExists(ShapeName As String, Optional Sheet) As Boolean
  
  Dim objSheet As Object
  
  If IsMissing(Sheet) Then
    Set objSheet = ActiveSheet
  ElseIf IsObject(Sheet) Then
    Set objSheet = Sheet
  ElseIf VarType(Sheet) = vbString Then
    Set objSheet = ActiveWorkbook.Sheets(Sheet)
  End If
  
  Dim objShape As Excel.Shape
  On Error Resume Next
  Set objShape = objSheet.Shapes(ShapeName)
  ShapeExists = Not objShape Is Nothing
  
End Function

 

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
09.10.2020 01:25:38 Alyssa
NotSolved
Blau Pfeilerstellung
09.10.2020 14:07:46 Gast76169
NotSolved
10.10.2020 10:25:20 Gast38569
NotSolved
10.10.2020 12:31:52 Gast14954
NotSolved
10.10.2020 10:20:49 Gast55863
NotSolved
12.10.2020 10:26:24 Gast89237
NotSolved