Thema Datum  Von Nutzer Rating
Antwort
05.05.2015 14:47:12 rafa_red
NotSolved
Blau Shape an bestimmter Stelle einfügen
 05.05.2015 19:03:35 Gast58708
NotSolved
12.05.2015 11:27:37 rafa_red
NotSolved
12.05.2015 16:19:27 Gast58708
NotSolved
13.05.2015 14:55:59 rafa_rede
NotSolved
15.05.2015 13:11:04 Gast17364
NotSolved

Ansicht des Beitrags:
Von:
Gast58708		 Datum:
05.05.2015 19:03:35		 Views:
1488		 Rating:
     
Antwort:
  Ja
Thema:
Shape an bestimmter Stelle einfügen

>> Ich kann einen Kreis erstellen, jedoch weiß ich nicht wie ich ihn an eine bestimmte Stelle verschiebe. Kann mir da jemand helfen?

Mit ein wenig Mathe geht das.

Option Explicit

Sub Bsp()
  
  Dim shp As Excel.Shape
  Dim s As Double 'Scale [0..1]
  Dim p As Double 'Progess [0..1]
  
  With Range("B3")
    
    'nur zur Veranschaulichung
    .RowHeight = 14
    .ColumnWidth = 60
    'nur zur Veranschaulichung
    .Interior.Color = rgbOrange
    
    'Skallierungsfaktor
    'für zu zeichnende Kreise
    s = 0.75
    
    'p=0.5 entspr. z.B. der Mitte
    For p = 0 To 1 Step 0.25 '=5 Durchgänge
      
      If .Width >= .Height Then
      'bei horizontaler Orientierungsrichtung
        Set shp = .Worksheet.Shapes.AddShape(msoShapeOval, _
                              Left:=.Left + p * (.Width - s * .Height), _
                              Top:=.Top + 0.5 * (1 - s) * .Height, _
                              Width:=s * .Height, _
                              Height:=s * .Height)
      Else
      'bei vertikaler Orientierungsrichtung
        Set shp = .Worksheet.Shapes.AddShape(msoShapeOval, _
                              Left:=.Left + 0.5 * (1 - s) * .Width, _
                              Top:=.Top + p * (.Height - s * .Width), _
                              Width:=s * .Width, _
                              Height:=s * .Width)
      End If
      
    Next
    
  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
05.05.2015 14:47:12 rafa_red
NotSolved
Blau Shape an bestimmter Stelle einfügen
 05.05.2015 19:03:35 Gast58708
NotSolved
12.05.2015 11:27:37 rafa_red
NotSolved
12.05.2015 16:19:27 Gast58708
NotSolved
13.05.2015 14:55:59 rafa_rede
NotSolved
15.05.2015 13:11:04 Gast17364
NotSolved