Nastavení velikosti tabulek v Excelu Vyřešeno

[Dieesels]

Dobrý den, mám dotaz týkající se velikosti tabulek, grafů atd.
Mám dva monitory a rád bych měl pomocí nějakého vba nebo i jiným způsobem možnost nastavit jak už jsem zmínil velikost tabulek, grafů atd..
Např. pomocí OptionButton, nebo jiného jednoduché nastavení, podle toho, na jakém monitoru informace uvedené v daném sešitě budu studovat...
Nevím, jak jinak to mám formulovat, takže pokud budou nějaké nejasnosti, pokusím se to ještě vysvětlit...

Přečti si laskavě pravidla fóra. Titulek má vystihovat problém, ale Excel skutečně o problému nic neříká. Titulek také pozdějšímu vyhledání. Titulek upraven! Děkuji za pochopení! Pic

[Reklama]

[navstevnik]

Zde mas velikost zobrazeneho okna:

Kód: Vybrat vše

  Set Okno = ActiveWindow.VisibleRange
  OknoSirka = Okno.Width
  OknoVyska = Okno.Height

U kazdeho objektu muzes ziskat informaci o jeho poloze a velikosti, napr. Label:

Kód: Vybrat vše

Width Worksheets("list1").Label1
  LblLeft = .Left
  LblTop = .Top
  LblSirka = .Width
  LblVyska = .Height
End With

a dopocitat meritko pro zmenu velikosti by uz nemel byt problem:

Kód: Vybrat vše

  Worksheets("list1").Label1.Width = LblSirka * 1.5
  Worksheets("list1").Label1.Height = LblVyska * 1.5

nova poloha (prirustky polohy HorIncr a VertIncr:

Kód: Vybrat vše

  Worksheets("list1").Label1.Left = LblLeft + HorIncr
  Worksheets("list1").Label1.Top = LblTop + VertIncr

Vse propojit do procedury spoustene udalosti OptionButton bys mel zvladnout sam, nebot na vseobecnou formulaci pozadavku se neda vice odpovedet.
Doplneno 18.12.09:
a zmena velikosti zobrazeni - 200%:

Kód: Vybrat vše

ActiveWindow.Zoom = 200

[Dieesels]

Děkuji za odpověd. A omlouvám se za titulek, bohužel jsem to psal ve spěchu....