Suche Macro: on click ... Bild tauschen! Word 2003

02/04/2009 - 18:34 von R.Mueller | Report spam
Ich bin grad dabei für meine Firma ein Dokument zu erzeugen, dass mir beim
Server Healthcheck helfen soll. Quasi ein Report.

Ich hàt gern ein Macro, dass beim drauf klicken entweder ein Clip Art
tauscht oder ein Bildchen. Quasi ... eine Ampel die zb von Rot bis Grün geht
oder so Sternchen die immer mehr werden.

MFG

El Rufi
 

Lesen sie die antworten

#1 Lisa [Nora Richter]
05/04/2009 - 22:15 | Warnen spam
Hallo El Rufi,

Ich hàt gern ein Macro, dass beim drauf klicken entweder ein Clip Art
tauscht oder ein Bildchen. Quasi ... eine Ampel die zb von Rot bis Grün geht
oder so Sternchen die immer mehr werden.



leider sind die Angaben etwas spàrlich. Eine "Ampel" kann man beispielsweise
mit Kreisen aus den Autoformen erstellen, z.B. so:

Sub AmpelEinfuegen()

Dim lngAbsatz As Long
Dim rng As Word.Range
Dim shp As Word.Shape
Dim ils As Word.InlineShape

Set rng = Selection.Paragraphs(1).Range
rng.SetRange Start:=ActiveDocument.Range.Start, End:=rng.End
lngAbsatz = rng.Paragraphs.Count

Set shp = ActiveDocument.Shapes.AddShape(Type:=msoShapeOval, _
Left:=0#, Top:=0#, Width: #, Height: #, _
Anchor:=ActiveDocument.Paragraphs(lngAbsatz).Range)
With shp
.Fill.ForeColor = wdColorRed
.Name = "Rot"
End With
Set shp = ActiveDocument.Shapes.AddShape(Type:=msoShapeOval, _
Left: #, Top:=0#, Width: #, Height: #, _
Anchor:=ActiveDocument.Paragraphs(lngAbsatz).Range)
With shp
.Fill.ForeColor = wdColorYellow
.Name = "Gelb"
End With
Set shp = ActiveDocument.Shapes.AddShape(Type:=msoShapeOval, _
Left:@#, Top:=0#, Width: #, Height: #, _
Anchor:=ActiveDocument.Paragraphs(lngAbsatz).Range)
With shp
.Fill.ForeColor = wdColorGreen
.Name = "Gruen"
End With

End Sub

Was ich noch nicht verstanden habe, wie soll das gehandhabt werden. Soll es
drei Buttons (Feldfunktion Macrobutton) geben, auf die man klickt, die
jeweils eine der Farben einschalten, oder nur einen Macrobutton, der
nacheinander die Farben durchlàuft? Beschreib mal etwas nàher, wie Du Dir das
vorstellst.

Gruß
Lisa
_____
http://www.schreibbuero-richter.de/vba.html

Ähnliche fragen