Como inserir imagens em arquivos VBS

Escrito por alexander gokhfeld | Traduzido por pedro antonio
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como inserir imagens em arquivos VBS
Aprenda a inserir imagens em seu relatório tornando-o mais criativo (newspapers image by Christopher Hall from Fotolia.com)

O programa do banco de dados do Microsoft Access permite ao usuário exibir imagens nas suas páginas do relatório de dados. Se tiver muitas fotos relacionadas com o relatório ou se cada um dos arquivos for grande, o tamanho do banco de dados do Access pode aumentar significativamente. É mais prático, nesses casos, armazenar as imagens em scripts VBS em execução no banco de dados. A inserção delas em arquivos VBS torna rápida a execução das operações do programa.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

Instruções

  1. 1

    Clique no botão "Iniciar" do Windows e depois em "Visual Basic for Application".

  2. 2

    Digite os seguintes códigos na janela aberta:

    Sub PictureIntoComment() 'www.contextures.com\xlcomments03.html Dim ch As ChartObject Dim dWidth As Double Dim dHeight As Double Dim ws As Worksheet Dim sName As String Dim cmt As Comment Dim sPath As String Dim sFile As String Dim rng As Range Set ws = ActiveSheet Set rng = ActiveCell sPath = ThisWorkbook.Path & "\" sName = InputBox("Name for picture file (no extension)", "File

    Name") If sName = "" Then sName = "Picture_" & Format(Date, "yyyymmdd") sFile = sPath & sName & ".gif"

    dWidth = Selection.Width dHeight = Selection.Height

    Selection.Cut Set ch = ws.ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, _ Width:=dWidth, Height:=dHeight) ch.Chart.Paste rng.Activate ch.Chart.Export sFile ch.Delete Set cmt = rng.AddComment cmt.Text Text:="" With cmt.Shape .Fill.UserPicture sFile .Width = dWidth .Height = dHeight End With

    End Sub

  3. 3

    Clique em "Salvar". Escolha um nome para o script VBS e depois clique no botão "OK" para inserir as imagens no arquivo VBS.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível