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:
1333
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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