Mappenaufruf - einmal anders

26/09/2007 - 21:22 von Eric March | Report spam
Moin, Moin!

Schon öfter hatte ich hier das Problem, dass dass Öffnen von Mappen per
Workbook.Open es nicht gebacken bekommt auf Elemente der nun geöffneten
Mappe über deren Auto-Makros zuzugrifen. Scheinbar ist das Blatt noch
nicht da auf das das Makro referenziert.
(Jüngstes Beispiel: im Blatt liegen Grafiken die als Schaltflàchensymbol
für eine neu einzurichtenden Symbolleiste genutzt werden sollen. Die
Lieste wird erzeugt, die Buttons auch, aber das Bild kann nicht kopiert
werden um es ZA dem Button zuzuweisen - es sit scheints einfahc nicht
da.) Rufe ich über den Dialog oder per Doppelklick auf klappts reibungslos.

Ich will aber Mappen per Buttons aus der Personal.Xls heraus öffnen
können (Sturköpfchen).
Nun probiere ich es mit der Idee über Shell die Datei analog zum
Doppelklick aufzurufen (da geht sie ja auch im schon offenen Excel auf).
ist da jemandem ein Kniff bekannt?

Sollte mich die Erinnerung tàuschen sind Ideen wie in Word den
Open-Dialog direkt zu steuern ja unter Excel nicht drin?!

Eric March - eric.march(spambremse)@gmx.net

»Kenne die Vergangenheit. In der Unwissenheit über die Vergangenheit
liegt das Verderben der Zukunft.«
„Die Geschichte ist der beste Lehrmeister - mit den unaufmerksamsten
Schülern.“ Indira Gandhi
 

Lesen sie die antworten

#1 Dr. Eckehard Pfeifer
26/09/2007 - 22:21 | Warnen spam
<zitat>
(Jüngstes Beispiel: im Blatt liegen Grafiken die als
Schaltflàchensymbol
für eine neu einzurichtenden Symbolleiste genutzt werden sollen. Die
Lieste wird erzeugt, die Buttons auch, aber das Bild kann nicht kopiert
werden um es ZA dem Button zuzuweisen - es sit scheints einfahc nicht
da.) Rufe ich über den Dialog oder per Doppelklick auf klappts
reibungslos.
</zitat>

Hallo, das kann ich (Xl 2007) beim besten Willen nicht nachvollziehen.
Auf die Schnelle:

Dim b As CommandBarButton
Dim cb As CommandBar

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
cb.Delete
End Sub

Private Sub Workbook_Open()
Set cb = Application.CommandBars.Add(temporary:=True)
Set b = cb.Controls.Add(msoControlButton)
Tabelle1.Shapes(1).CopyPicture
b.PasteFace
cb.Visible = True
End Sub

MfG EP
Entwicklung - Beratung - Training (www.dr-e-pfeifer.net)
XL-Funktionsverzeichnis (ISBN: 3860636898)
MS Office 2003 - Das Entwicklerbuch (ISBN 3-86063-688-X)

Ähnliche fragen