Últimos Usuários On-line
sumaya
Manoel Antônio
Lílian
Douglas
Ingrid Verônica de Noronha
Sérgio Siqueira
hugo
Fabiano Silva
Entrar
Faça seu login com o Windows Live ID, é prático e seguro!
PodcastPodcast
Mapa Astral do Desktop
Um astrólogo nos ajudou a desvendar os sinais cósmicos incrustrados na maneira como organizamos nosso desktop. Descobrimos que nossa Área de Trabalho revela muito mais do que gostaríamos. Clique aqui!
Encosto
Coisas estranhas acontecem quando colocamos Mouzar Benedito, especialista em Saci Pererê, e o corinthiano Rafael R para discutir as más influências nem sempre tão sobrenaturais na vida das pessoas. Clique aqui!
Preparando o casamento
Tá de bobeira? Então descubra com quantos seguradores de guardanapo se faz um casamento. Dessa vez a equipe do Ócio recebeu duas noivas e uma cerimonialista. Clique aqui!

» Conheça todos os episódios

PRESENTE VIRTUAL PARA O DIA DOS NAMORADOS

por Cintia Costa em 08/06/2009 às 20:02
Powerpoint,



Sabe todos aqueles PowerPoints de gosto duvidoso que sua tia/ madrinha/ colega adora mandar? Então, a inutilidade inerente a esse tipo de iniciativa acaba de ser curada. Exatamente! Para facilitar sua vida no Dia dos Namorados criamos o primeiro PPT fofinho absolutamente útil da história! Estamos disponibilizando uma série de slides que é um amor, frases tocantes, imagens incríveis; e os efeitos!... E o melhor, você customiza de forma fácil e rápida para agradar e surpreender sua cara-metade.

O que seria dos ociosos apaixonados se não fosse a imaginação do Humberto, nosso Programador Parrudo?

Os recursos do PowerPoint que estamos acostumados a ver, como animações, transições, etc. foram explorados bem modestamente. Melhor falar dos controles ActiveX e das macros. Boa parte do texto foi colocada dinamicamente, baseado nas escolhas do usuário, inseridas nos controles ActiveX.

Para os apaixonados por VBA, vai uma amostra do código comentado de como inserir as informações dos controles ActiveX nas caixas de texto do PowerPoint:

With ActivePresentation.Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, _
    50, 100, 600, 1000)  ‘INSERE UMA CAIXA DE TEXTO NO SLIDE 3 COM 600PX DE LARGURA,
                                 1000 DE ALTURA, A 50 PIXELS DA MARGEM ESQUERDA E 100 DO TOPO

    With .TextFrame.TextRange                          ‘ABRE O TEXTO PARA FORMATAÇÃO
         .Text = controleActiveX.Text                       ‘<--AQUI ENTRA O CONTROLE ACTIVEX
         With .Font                                              ‘FORMATA A FONTE
            .Name = "Bradley Hand ITC"
            .Size = 60
            .Color.RGB = RGB(0, 0, 0)
            .Bold = msoTrue
        End With
    End With
End With



faça o download
Presente virtual para o dia dos namorados
PowerPoint | 4,7MB




Comentário
Nome
Email
Faça seu login com o Windows Live ID. Clique em
Busca
Projeto Ócio 2007
O blog Ócio 2007 é feito por uma equipe de jornalistas, blogueiros e desenvolvedores que, a partir de recursos do pacote Office, criam aplicativos divertidos e inusitados para momentos de lazer. O objetivo é reforçar a versatilidade do sistema e estender também seu uso no trabalho. O blog Ócio 2007 é um projeto da Microsoft Brasil.
Links Relacionados
» Microsoft Office
» Microsoft Brasil
» Live.com
© 2008 Microsoft Corporation. Todos os direitos reservados.  Quem Somos  |  Contato  |  Topo