Friday, July 14, 2006

SAVE A .GIF WITH TRANSPARENT BACKGROUND - in Ms Expression


Need to create a picture with transparent background?
This is the way to do it, using Microsoft Expression:

1. Open a new file in Pixel Layer
2. Choose the Magic Eraser Tool, then click on the paper
3. Do the drawing
4. Save the file by Export: Export » to Image Format » gif » Save Alpha Channel

The background will be transparent.

Tuesday, July 11, 2006

EXCEL SHEET ÜRES SORAINAK KITÖRLÉSE - VBA makró


Ha automatikusan hozol létre Excel Sheeteket, nem tuhatod, hogy hány sorra is lesz pontosan szükség => jobb, ha minél többet adsz hozzá az elején. Ellenben, a sok üres sor gondot okozhat processzáláskor, így ez a makró kiörli az "üresnek tekintetteket". Hogy ki melyik sort tekinti üresnek, a feltétel határozza meg.

Sub RemoveEmptyRowsFromASpecificSheet()
Dim rng As String
rng = ""
totalrows = Sheets("SpecificSheet").UsedRange.Rows.Count
For Row = 1 To totalrows Step 1
If Sheets("SpecificSheet").UsedRange.Cells(Row, 1).Value = "" Then
rng = "A" + CStr(Row) + ":P5000"
Exit For
End If
Next Row
Sheets("SpecificSheet").Range(rng).EntireRow.Delete
End Sub