Arquivo mensais:October 2009

Baboseiras

Baboseiras – Face Your Manga te deixa um autêntico desenho japonês

O internauta fã dos desenhos japoneses conhecidos como mangá pode criar um avatar nesse estilo. E com muita facilidade. Basta acessar o Face Your Manga. Esse serviço tem uma porção de ferramentas e traços de mangá para o internauta elaborar a própria caricatura.No passo a passo para a criação do avatar, o internauta encontra opções de cabelo, rosto, nariz, roupas e acessórios. A variedade é tão grande que atende os estilos de todas as tribos.

Abaixo segue um idéia da interface do site:

Face Your Manga

Abaixo, seguem alguns resultados que podem ser obtidos:

Face Your Manga

Abaixo, uma versão do Presidente Obama em Manga

Presidente Obama no Face Your Manga

Link para o Face Your Manga:

http://www.faceyourmanga.com/

Access, Excel, Microsoft Office, Outlook, VBA, Word

VBA – Excluindo arquivos e Movendo para a Lixeira

Lixeira
Lixeira

Programadores mais experientes sempre tiveram a mão uma função simples para exclusão de arquivos no VBA. A função Kill. A Macro abaixo exclui o arquivo no caminho informado:

Public Sub KillThem()
    Kill "C:\temp\delete.txt"
End Sub

Até aqui tudo bem. O inconveniente desta função é que o arquivo é definitivamente excluído, ou seja, não passa nem pela Lixeira. Em alguns casos isso pode até ser bom, em outros não, como por exemplo, selecionar um arquivo por engano.

Para isso, há uma pequena alternativa que seria a óbvia. Enviar o arquivo para a Lixeira. O código VBA abaixo permite a proeza:

Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
 
Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long
End Type
 
Private Declare Function SHFileOperation Lib _
 "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Function Exclui_Arquivo(CaminhoArquivo As String) As Boolean
    Dim shfo As SHFILEOPSTRUCT
    Dim lresult As Long
 
    With shfo
        .wFunc = FO_DELETE
        .pFrom = CaminhoArquivo
        .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
    End With
 
    lresult = SHFileOperation(shfo)
    Exclui_Arquivo = CBool(lresult = 0)
End Function
 
Um exemplo de chamada à função seria:
 
Public Sub Teste()
    Dim CaminhoArquivo As String
    CaminhoArquivo = "C:\temp\delete.txt"
    If Exclui_Arquivo(CaminhoArquivo) Then
        MsgBox "Arquivo " & CaminhoArquivo & " excluido com sucesso"
    Else
        MsgBox "Falha na exclusão do aquivo " & CaminhoArquivo
    End If
End Sub

É interessante notar que as constantes FOF_ALLOWUNDO e FOF_NOCONFIRMATION são utilizadas em cojunto. O resultado produzido é a efetivação da operação sem confirmação. Porém, se omitir o segundo, a caixa de confirmação de exclusão de arquivo padrão do Windows será mostrada.  Experimento deixar somente o FOF_ALLOWUNDO e execute o código novamente.

Não entrarei em detalhes da função SHFileOperation e da Estrutura SHFILEOPSTRUCT. Ambas estão bem detalhadas na documentação oficial:

SHFileOperation Function
SHFILEOPSTRUCT Structure

Bom proveito!

Dicas, Excel, Microsoft Office, Tecnologia, Word

Dicas – Novo local para os arquivos do Office

Mais uma dica bacana dada pelo pessoal da INFO

Escolha, se preferir, uma nova pasta padrão para armazenar trabalhos criados com os programas do pacote
Escolha, se preferir, uma nova pasta padrão para armazenar trabalhos criados com os programas do pacote
Por padrão, o Word, o Excel e o PowerPoint armazenam seus arquivos na pasta Documentos (Meus Documentos, se o sistema operacional em uso for o Windows XP). Se você aceitar a sugestão dos aplicativos, nenhum problema: sempre que precisar procurar um documento, uma planilha ou uma apresentação é nessa pasta que terá de vasculhar em primeiro lugar. Mas, e se você preferir escolher outro lugar para guardar suas trabalhos? Clique no Botão Office > Opções do programa em uso (se for o Word, clique em Opções do Word, por exemplo). Na janela seguinte, escolha a categoria Salvar. Na linha Local Padrão do Arquivo, clique no botão Procurar e escolha uma nova pasta de armazenamento.

Opções do Office