• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Batista15

Imagem

6 mensagens neste tópico

Boas pessoal,

tenho o seguinte codigo

Dim imagem6 As Bitmap = CType(APB1.BackgroundImage, Bitmap)
        Dim celula6 As Object = "A12"
        Dim range6 As Microsoft.Office.Interop.Excel.Range
        range6 = excelSheet.Range(celula6)
        Clipboard.SetDataObject(imagem6)
        range6.Select()
        excelSheet.Paste()

Para enviar picturebox para excel, mas como tenho para esta tenho para varias! E basta uma nao ter imagem que da erro por nao passar nada para o excel.

Ando a tentar fazer um if... mas esta complicado, alguma ajuda?

Tenho que entregar isto hoje. Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes simplesmente verificar se existe imagem no background.

        If PictureBox1.BackgroundImage Is Nothing Then
            MsgBox("Sem imagem...")
        End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes simplesmente verificar se existe imagem no background.

        If PictureBox1.BackgroundImage Is Nothing Then
            MsgBox("Sem imagem...")
        End If

Obrigado por responder, mas não era bem isso!

Queria que ter ao não ter imagem abrisse o Excel sem dar erro!

A pct pode ou não ter imagem, mas que abra o Excel a mesma!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só tens que adaptar, em vez de dar a mensagem de erro, não deixa fazer copy&paste, em vez por exemplo escreve na célula correspondente "Sem imagem..."

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

não percebi muito bem a duvida mas podes criar um try catch em que tenta fazer esse código mas se não conseguir no catch abre apenas o excel

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

não percebi muito bem a duvida mas podes criar um try catch em que tenta fazer esse código mas se não conseguir no catch abre apenas o excel

Exactamente.

Try
'Código para por as imagens no excel
catch ex as exception
Msgbox("Algumas imagens não poderam ser importadas")
End try

Algo do género, abraço.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora