Thema Datum  Von Nutzer Rating
Antwort
23.11.2017 15:41:13 Andreas
NotSolved
Blau zum Bleistift
 23.11.2017 18:53:22 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
23.11.2017 18:53:22		 Views:
559		 Rating:
     
Antwort:
  Ja
Thema:
zum Bleistift		 
Sub Makro1()
'
' Makro1 Makro
' einen Pfeil erzeugen, formatieren und positionieren
' an die aktive Zelle

Dim oshp As Shape
Dim myCell As Range
'
    With ActiveSheet
      Set myCell = ActiveCell
      .Shapes.AddConnector 1, myCell.Left, myCell.Top, myCell.Offset(, 1).Left, myCell.Offset(, 1).Top
      Set oshp = .Shapes(.Shapes.Count)
      
      With oshp
         .Name = "Pfeil" & myCell.Address(0, 0)
         With .Line
            .EndArrowheadStyle = 2
            .EndArrowheadLength = 2
            .ForeColor.RGB = RGB(255, 0, 0)
            .Transparency = 0.5
            .Style = 1
            .Weight = 2
         End With
         
      
      End With
      
    End With
      
End Sub

Sub Makro2()
'
' Makro2 Makro
' einen Pfeil neu positionieren
' an der aktivenZelle

Dim oshp As Shape
Dim myCell As Range
'
    With ActiveSheet
      Set myCell = ActiveCell
      Set oshp = .Shapes("Pfeil" & myCell.Address(0, 0))
      With oshp
         .Flip 0
         .IncrementRotation 45
         .IncrementLeft myCell.Width / 2
         .IncrementTop myCell.Height / 2
         'usw
      End With
      
   End With
   
End Sub

Sub Makro3()
'
' Makro3 Makro
' einen Pfeil ansprechen und verschieben

Dim oshp As Shape
Dim WS As Worksheet: Set WS = ActiveSheet

   With WS
      Set oshp = .Shapes("PfeilB6")
      With oshp
         .Top = WS.Cells(10, 10).Top
         .Left = WS.Cells(10, 10).Left
         .ScaleHeight 1.5, msoFalse
         .ScaleWidth 1.5, msoFalse
      End With
      
   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
23.11.2017 15:41:13 Andreas
NotSolved
Blau zum Bleistift
 23.11.2017 18:53:22 Gast70117
NotSolved