Diagramme auflisten und ein bestimmtes markieren

Liebe ForumsteilnehmerInnen,
ich hab' da ein Problem, das meine Kenntnisse bei weitem übersteigt und auch kurz beschrieben werden muss.
Die Personen, die mit dem Makro/AddIn arbeiten werden, verwenden benutzerdefinierte Diagramme, d. h. die Diagramme müssen nicht formatiert werden. Sie können aber nur mit der Tastatur arbeiten, da sie blind bzw. schwer sehbehindert sind.
Ich habe ein Makro geschrieben bzw. zusammenkopiert und als AddIn gespeichert, mit dem es möglich ist, ein Diagramm an einer angegebenen Position abzulegen (z. B. A14:E35). Dabei ist mir aufgefallen, dass das nur dann funktioniert, wenn ich das Diagramm via Bearbeiten/Gehe zu/Objekte markiere. Der Bereich für das Diagramm wird mit Application.InputBox abgefragt.
Frage 1: Wie kann ich alle ev. vorhandenen Markierungen aufheben und dann das Diagramm mit dem Makro in der richtigen Form markieren?
Frage 2: Wenn es auf einem Sheet mehrere Diagramme gibt: Gibt es eine Möglichkeit eine Liste mit den Diagrammen auszugeben (die könnten ruhig Chart1, Chart2, ... heißen), um dann mit der Tastatur das richtige Diagramm anzugeben und zu markieren.
Würdet Ihr das AddIn mit einem Button aufrufen (kann ich dem Button dann eine Tastenkombination zuweisen) oder würdet Ihr gleich ein Menü anlegen (es könnten ja weitere AddIns dazukommen) - das sich, wenn das AddIn neu eingespielt wird, aktualisiert.
Die Vorgangsweise mit dem Button hätte ich fertig, die Tastenkombination fehlt noch. Ich nehme an, dass - wenn ich einem Button eine Tastenkombination zuweisen kann - das auch bei Menüeinträgen möglich ist.
Ich würde mich freuen, wenn jemand von Euch eine Antwort parat hätte. Ich möchte auch betonen, dass ich mich mit dem Problem in meiner Freizeit beschäftige und kein Geld dafür bekomme.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub diagramm_groesse_position() ActiveWindow.Visible = False Dim bereich As Range Dim diagramm As ChartObject Set bereich = Application.InputBox(Prompt:= _ "Welchen Bereich soll das Diagramm überdecken (z.B.: a12:e20)? ", _ Title:="Diagramm: Größe und Position", Type:=8) With ActiveSheet On Error GoTo FehlerMeldung Set diagramm = ActiveChart.Parent On Error GoTo 0 End With diagramm.Height = bereich.Height diagramm.Width = bereich.Width diagramm.Top = bereich.Top diagramm.Left = bereich.Left Set bereich = Nothing FehlerMeldung: If Err.Number = 91 Then MsgBox "Sie haben kein Diagramm ausgewählt!", _ vbOKOnly, "Diagrammauswahl" End If End Sub

Hi Karin,
mit Deiner Hilfe bin ich beinahe fertig. Ich hab' meinen Code quasi in Deinen integriert, die msgbox mit JA/Nein ausgestattet und jetzt kann ich der Reihe nach die Diagramme anpassen. Es war nur ein Problem dabei: ActiveWindow.Visible = False kann ich nicht einsetzen, da die Blinden, wenn der ScreenReader auszuckt, gerne ein paarmal Esc drücken. Dann ist auch nix mehr markiert und mir wird das Fenster ausgeblendet. Ich stelle die bei Aufruf des Scripts halt in die Zelle A1, das genügt.
Eines bleibt mir offen: Wie hast Du das gemeint mit: Ich könnte dem AddIn direkt eine Tastenkombination zuweisen? Ich bin da ein ziemlicher Anfänger und weiß nur, dass es so nicht geht:
Option Explicit


Sub Workbook_Open()
Application.OnKey "^ü", "diagramm_groesse_position"
End Sub


Sub diagramm_groesse_position()
Range("A1").Select
Dim bereich As Range
Dim diagramm As ChartObject
Dim ergebnis As String
For Each diagramm In ActiveSheet.ChartObjects
ergebnis = MsgBox("Wollen Sie das Diagramm " & diagramm.Name & " ändern?", _
vbYesNo + vbQuestion)
If ergebnis = vbYes Then
diagramm.Select
Set bereich = Application.InputBox(Prompt:= _
"Welchen Bereich soll das Diagramm überdecken (z.B.: a12:e20)? ", _
Title:="Diagramm: Größe und Position", Type:=8)
diagramm.Height = bereich.Height
diagramm.Width = bereich.Width
diagramm.Top = bereich.Top
diagramm.Left = bereich.Left
Set bereich = Nothing
End If
Next diagramm
End Sub

Es ist mir bewußt, dass es elegantere Lösungen geben kann. Ich strecke mich halt nach meiner Decke.
Danke
Fritz

Sub diagramm_groesse_position() Dim bereich As Range Dim diagramm As ChartObject Dim ergebnis As String For Each diagramm In ActiveSheet.ChartObjects ergebnis = MsgBox("Wollen Sie das Diagramm " & diagramm.Name & " ändern?", _ vbYesNo + vbQuestion) If ergebnis = vbYes Then Set bereich = Application.InputBox(Prompt:= _ "Welchen Bereich soll das Diagramm überdecken (z.B.: a12:e20)? ", _ Title:="Diagramm: Größe und Position", Type:=8) diagramm.Height = bereich.Height diagramm.Width = bereich.Width diagramm.Top = bereich.Top diagramm.Left = bereich.Left Set bereich = Nothing End If Next diagramm End Sub

Beliebteste Forumthreads (12 Monate)

Diagramme auflisten und ein bestimmtes markieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramme auflisten und ein bestimmtes markieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread