Excel- pomoc s Visual Basicem

[mtrix]

Zdravím, nějakou dobu dělám v excelu, ale najednou mi přestal stačit a proto bych potřeboval pomoc s VBA.

1) jak udělám pomocí tlačítka, příkaz "Uložit sešit jako"
2) jak udělám pomocí tlačítka, příkaz "Tisk sešitu jako"
3) když hodnota buňky rovná se 1, tak chci aby se v jiné buňce zobrazil obrázek .jpg

Díky

[Jirik]

3) nevim, ale 1 a 2 by melo jit zjistit jednoduse tak, ze si nahrajes makro s pozadovanym prikazem a pak se na to makro podivas ve VB.

[mtrix]

No právě, že uložení a tisk mi nejde nahrát do makra

[xvojta]

Zdravím, nějakou dobu dělám v excelu, ale najednou mi přestal stačit a proto bych potřeboval pomoc s VBA.

1) jak udělám pomocí tlačítka, příkaz "Uložit sešit jako"
2) jak udělám pomocí tlačítka, příkaz "Tisk sešitu jako"
3) když hodnota buňky rovná se 1, tak chci aby se v jiné buňce zobrazil obrázek .jpg

Díky

add 3)


excelApp.Goto excelDoc.Sheets(sheetIns).Cells(8, 7)
'- doufam jasny... sheets je cislo listu, pripadne ActiveSheet, cells sou 'souradnice bunky

excelDoc.Sheets(sheetIns).Pictures.Insert(pictureN ame).Select
' (vlozi obrazek ze souboru v pictureName)


add2)
nevim co je presne mysleno "tisk sesitu jako" ale
doporucuju zkusit fci. PrintOut

expression.PrintOut(Background, Append, Range,
OutputFileName, From, To, Item, Copies, Pages,
PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX,
ManualDuplexPrint, PrintZoomColumn,
PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)

napr.


excelDocument.PrintOut ActivePrinter:=currentPrinter


add 1)
chces jen vyvolat nabidku saveas nebo primo ulozit soubor?
nasl. kod je primo pro ulozenim souboru


Private Sub word_Click()

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.DisplayAlerts = True
Set wordDoc = wordApp.Documents.Add() 'vytvori novy dokument / nebo ' Open pro otevreni stavajiciho
wordDoc.SaveAs "C:\Temp\obr.doc"
Set wordDoc = Nothing
wordApp.Quit True
Set wordApp = Nothing
End Sub

[mtrix]

Díky moc

[mtrix]

Mám další dotaz, pokud mi můžete pomoct, budu rád.

List č.4 jsem skryl pomocí vba (2 xlsheetVeryHidden). A potřeboval bych aby se tento list objevil, když bude hodnota buňky třeba 1.

Ještě to zkusím popsat rozumněji. Potřebuji, aby se po zadání hesla zobrazil skrytý list.

Díky

[xvojta]

Mám další dotaz, pokud mi můžete pomoct, budu rád.

List č.4 jsem skryl pomocí vba (2 xlsheetVeryHidden). A potřeboval bych aby se tento list objevil, když bude hodnota buňky třeba 1.

Ještě to zkusím popsat rozumněji. Potřebuji, aby se po zadání hesla zobrazil skrytý list.

Díky

zkus popsat jak by to melo fungovat.. kam se heslo zadava... odkud ho beres... atd...
at je to trochu jasnejsi..