RogerioGottardi

Consegui já. Adicionei esse código: Set Imagem = Plan.Shapes.AddPicture(link, endereco, msoTrue, posicaox, posicaoy, 278, 156) Imagem.Name = Planilha1.Cells.Range("j" & i).Value Planilha4.Hyperlinks.Add _ Anchor:=Imagem, _ Address:=Planilha1.Cells.Range("K" & i).Value, _ SubAddress:="", _ ScreenTip:=""

Tenho um vba que insere N shapes e gostaria de saber como fazer para inserir um hiperlink nesse shape para abrir um arquivo externo: Private Sub PesquisarButton_Click() Dim Plan As Worksheet Dim Imagem As Shape Dim i As Integer Dim total As Integer 'Excluindo todos os shapes anteriormente existentes Dim o As Object For Each o In ActiveSheet.DrawingObjects If o.Name <> "PesquisarButton" Then o.Delete End If Next o On Error GoTo 0 'Inserindo as imagens i = 4 total = Planilha1.Cells.Range("m1").Value Set Plan = ActiveSheet contadortem = 2 While i < total valor = Planilha1.Cells.Range("h" & i).Value If valor <> "FORA" Then link = Planilha1.Cells.Range("i" & i).Value posicaox = Planilha4.Cells.Range("a" & contadortem).Value posicaoy = Planilha4.Cells.Range("b" & contadortem).Value endereco = Planilha4.Cells.Range("c" & contadortem).Value Set Imagem = Plan.Shapes.AddPicture(link, endereco, msoTrue, posicaox, posicaoy, 278, 156) 'Aqui gostaria de inserir um link nessa imagem. O link se encontra na célula planilha4.cells.range("c"&i).value contadortem = contadortem + 1 End If i = i + 1 Wend End Sub

Estou criando alguns Timages em massa, e gostaria de atribuir a cada um deles, um evento .onclick diferente. Gostaria que quando fosse clicado em algum deles, mostrasse uma mensagem salva em uma matriz. Como proceder? O que tenho até agora é: procedure TForm1.Button3Click(Sender: TObject); Var Contador : integer; begin Setlength(minhasimagens,6); Setlength(meuslinks,6); For Contador := 0 To 5 Do Begin MinhasImagens[Contador] := TImage.Create(Form1); MinhasImagens[Contador].Name := 'image' + IntToStr(Contador); MinhasImagens[Contador].Parent := Form1; MinhasImagens[Contador].Top := ((Contador + 1) * 200); MinhasImagens[Contador].Height := 200; MinhasImagens[Contador].width := 350; minhasimagens[contador].stretch:=true; meuslinks[contador]:='ttt'+inttostr(contador); minhasimagens[contador].onclick:=???? MinhasImagens[Contador].picture.loadfromfile('C:\Users\X\A.jpg'); End; end; end. O link está sendo salvo na matriz MeusLinks[contador]. Lembrando que declarei o MeusImagens e MeusLinks lá em cima, no public.

Preciso criar uma animação em flash, já dei uma procurada na internet e não encontrei. Acredito ser algo simples, mas como não entendo praticamente NADA de flash, não saio da estaca zero. Tenho alguns pequenos vídeos em FLV e preciso inseri-los em minha animação. Até ai tudo bem, consegui inserir no documento. Porém, preciso que ao iniciar a animação eles fiquem estáticos, como se parados no frame 1 e só iniciem ao passar o mouse em cima.. Como fazer esse comando?