Hallo bei WeWeWa,
ärgere mich mal wieder mit EXCEL herum. In irgendeinem Service-Pack hat sich durch die Seitenvorschau etwas verändert. Buttons (Ich glaube nur die nicht zu druckenden) werden ziemlich willkürlich verschoben. Will sagen, nach dem Preview liegen sie woanders, und zum Teil unsichtbar (ausgeblendete Spalten) oder auch übereinander.
Also einen Event abfangen und die Dinger neu positionieren. So weit so gut. Aber:
Gibt es einen Event den man nach der Seitenvorschau, also dem Wiederaufbau der Tabelle, abfangen kann?
mfg
Dirk.Pegasus
ärgere mich mal wieder mit EXCEL herum. In irgendeinem
Service-Pack hat sich durch die Seitenvorschau etwas
verändert. Buttons (Ich glaube nur die nicht zu druckenden)
werden ziemlich willkürlich verschoben. Will sagen, nach dem
Preview liegen sie woanders, und zum Teil unsichtbar
(ausgeblendete Spalten) oder auch übereinander.
Also einen Event abfangen und die Dinger neu positionieren. So
weit so gut. Aber:
Gibt es einen Event den man nach der Seitenvorschau, also dem
Wiederaufbau der Tabelle, abfangen kann?
Hi Dirk,
Option Explicit
Sub SeitenansichtAus()
With Application.CommandBars(1).Controls(1)
.Controls("Seitenansic&ht").OnAction = "Meinblick"
End With
End Sub
Sub Meinblick()
Application.Dialogs(xlDialogPrintPreview).Show
'...
'dein Code
'...
End Sub
Sub SeitenansichtEin()
With Application.CommandBars(1).Controls(1)
.Controls("Seitenansic&ht").OnAction = ""
End With
End Sub
Gruß
Reinhard
Hallo Reinhard,
sieht ja klasse aus, werde ich morgen mal testen. Meld mich nochmal.
mfg
Dirk.Pegasus
Hallo Reinhard,
der Tipp war genau der richtige Hinweis (Daher auch ein Sternchen!). Da ich in verschiedenen Sprachen arbeiten muss, ist es allerdings gefährlich auf Texte zu analysieren (in mal mit = „Fett“ böse reingefallen!). Geholfen habe ich mir im Moment so:
Sub SeitenansichtAus()
Dim i, j As Integer
For i = 1 To CommandBars.Count
For j = 1 To CommandBars(i).Controls.Count
If (CommandBars(i).Controls(j).HelpContextID = 7200769) Then
CommandBars(i).Controls(j).OnAction = „myDialogPrintPreview“
End If
Next
Next
End Sub
Die HelpContextID sollte (hoffentlich) immer gleich sein. Hast du eine bessere idee eine bestimmtes Control über „xlIchBinImmerGleich“, also möglichst eine EXCEL Kopnstante, zu finden? Außerdem läuft die blöde Schleife „lange“. Mit „findControl“ hab ichs aber nicht hingekriegt.
mfg
Dirk.Pegasus
zu finden? Außerdem läuft die blöde Schleife „lange“. Mit
„findControl“ hab ichs aber nicht hingekriegt.
Hi Dirk,
muss gleich weg,
wie hast du denn mit findcontrol gesucht, also der Suchcode.
Ist denn die ID bei allen Sprachen gleich?
Gruß
Reinhard
Hallo Reinhard,
schau dir mal das an:
http://mypage.bluewin.ch/reprobst/WordFAQ/OnAction.h…
Die id ist eindeutig! Morgen (FR) poste ich dir noch ein paar Zeilen Code die ich gefunden, aber nicht hier, habe. Damit kann man die IDs auslesen. Analog wohl immer, also auch Word etc…
In der Seite werd ich wohl noch was stöbern, sieht spontan recht gut aus!
mfg
Dirk.Pegasus
Hi Dirk,
wenn die ID eindeutig ist, also auch sprachmäßig, ist doch findcontrol „beherrschbar“.
Übrigens, du willst da stöbern?, schau doch bitte mal meinen Eintrag von vor ca. 10 Tagen im Brett dort, mit der Suchfunktion auf der von dir erwähnten Seite.
Rückmeldung wäre nett, was dir daran gefällt, was noch zu verbessern wäre…, leider kam da nix 
Gruß
Reinhard
Hi Reinhard,
mit rumstöbern wollte ich andeuten, das mir diese Seite (siehe Link) gut gefällt. Das da was von dir ist hatte ich nicht bemerkt. Sorry.
mfg
Dirk.Pegasus