Renato Knupp
-
Total de itens
57 -
Registro em
-
Última visita
Sobre Renato Knupp
Renato Knupp's Achievements
0
Reputação
-
Pessoal, consegui dessa forma, caso ajude alguém. Aqui eu salvo a imagem no computador Dim xShape As Shape Dim oSheet As Worksheet Dim oTemp As ChartObject Dim oChartArea As Chart Dim iFile as String Set oSheet = ActiveSheet Set xShape = oSheet.Shapes.Item("imagem1") iFile = “C:\temp\QR_Code.jpeg” xShape.CopyPicture Set oTemp = oSheet.ChartObjects.Add(0, 0, xShape.Width, xShape.Height) Set oChartArea = oTemp.Chart oTemp.Activate With oChartArea .ChartArea.Select .Paste .Export (iFile) End With oTemp.Delete Depois no .HTMLBody eu chamo o endereço pelo "<img src = " & iFile & ">" Não sei se é a forma mais simples, mas funcionou.
-
Então, mas nesse caso eu tenho uma imagem já salva no computador (tentei adaptá-lo), no meu caso ela não está salva, a imagem está dentro da minha planilha. Na minha planilha eu inseri a imagem dessa forma: URL = "https://chart.googleapis.com/chart?chs=130x130&cht=qr&chl=" & Worksheets("QR").Range("q1").Value Worksheets("QR").Pictures.Insert(URL).Select With Selection.ShapeRange .Name = "QR_Code" End With agora eu preciso pegar a imagem "QR_Code" e coloca-la no corpo do email. Tentei salva-la no computador ("C:\temp\teste.jpg"), com isso sua sugestão funcionaria mas, não deu certo. Tentei copia-la e enviar direto no .HTMLBody mas também não funciona. tentei coloca-la em uma variável, mas também sem sucesso. tá faltando algum detalhe que estou deixando passar batido.
-
Pessoal, criei uma rotinha em uma planilha para enviar um email pelo outlook, porém preciso que no corpo do email apareça uma imagem que está na minha planilha. Dentro da planilha eu tenho uma imagem onde nomeei como "QR_Code", e quando inserir o corpo do email no .HTMLBody eu colocarei essa imagem. .HTMLBody = "<html><body>Senhores,<br><br>Favor utilizar o código abaixo para acesso. <br>" & imagem & " <br><br> Obrigado! </body></html>" já tentei de diversas formas, com vários exemplo pesquisados, mas não deu certo. Alguém consegue me ajudar pfvr?
-
Boa tarde pessoal, dei uma pesquisada em alguma formula que convertesse um texto em uma formula. O INDIRETO apresenta erro. Basicamente o que preciso é em A1 eu tenho o texto "6/2", no formato texto, e em A2 eu coloque uma fórmula fazendo referencia a A1 onde o resultado seja "3".
-
Obrigado amigo, funcionou. Foi uma forma bem mais simples de resolver o problema.
-
Bom dia Pessoal, Preciso carregar uma determinada imagem em uma ferramenta Image de um form. o problema é que essa imagem está dentro da minha planilha. Já tentei de várias formas, desde codigos simples até codigos mais complexos. alguém consegue me ajudar Dentre minhas tentativas: Image1.Picture = Plan1.Shapes.Range(Array("Imagem 1")).select Plan1.Shapes("Imagem 1").CopyPicture xlScreen, xlBitmap Paste the picture from the clipboard into our image control Image1.Picture = Plan1.Shapes(xlBitmap).Paste Tentei varias outras coisas, se alguém souber de alguma forma de fazer vai me ajudar muito.
-
Pessoal, no vb tem um camando para que o form não fique piscando enquanto algo está sendo executado, é esse: Application.ScreenUpdating = False alguém sabe se no c# tem algo parecido?
-
cara, não sei se é a forma correta mas funcionou assim: foreach (ListViewItem item in listView1.SelectedItems) { textBox1.Text = item.SubItems[0].Text; textBox2.Text= item.SubItems[1].Text; } de qlqr forma funcionou, vlw mesmo pela sua atenção!
-
cara desculpe minha ignorancia, mas não tá rolando!
-
Xistyle, nada feito. O sitema não reconhece o comando FormEdicao quando instancia o frm na linha abaixo FormEdicao frm = New FormEdicao();
-
Pessoal, Estou trabalhando com ListView em C# e está complicado, já trabalhei com esse componente em outras linguagens e sei que chatinho. Seguinte minha intenção é carregar de um banco de dados determinadas informações, ok isso já está funcionando, depois disso quero dar duplo click em uma linha e carregar essas informações em um form para editá-las, ai é que está o problema. Passei o dia ontem na net e nada, não consigo carregar em uma textbox o item selecionado, sempre dá erro. se alguém tiver alguma função em C# que funcione e puder postar serei muito grato, se tiverem um tutorial sobre o componente tb , já olhei boa parte do que esta na net e não ajudou muito. Desde já obrigado pela atenção.
-
Xistyle, muito obrigado pela sua ajuda, quebrei um pouco a cabeça e consgui com a linha de codigo abaixo: SqlConnection conn = new SqlConnection("Server=localhost;Database=siged;Trusted_Connection=True"); Vlw
-
Xistyle ainda nada, la em cima eu adicionei as linhas: using System.Data; using System.Data.SqlClient; mas dá erro o erro: The using directive for 'System.Data' appeared previously in this namespace tambem continua aparecendo o erro na linha .open() Erro de rede ou específico à instância ao estabelecer conexão com o SQL Server. O servidor não foi encontrado ou não estava acessível. Verifique se o nome da instância está correto e se o SQL Server está configurado para permitir conexões remotas. (provider: Interfaces de Rede SQL, error: 26 - Erro ao Localizar Servidor/Instância Especificada) seguem dados de conexão com o banco quando abro o sql server Server type: Database Engine Server name: KNUPP Authentication: Windows Authentication User name: knupp\adm Password: <vazio> database: siged Segue a rotina que estou usando SqlConnection conn = new SqlConnection(@"Data Source =localhost\SQLExpress; AttachDbFilename =C:\Users\adm\Documents\Banco 2\siged.mdf; Database = siged; Trusted_Connection =Yes; "); SqlCommand comm = new SqlCommand(); comm.Connection = conn; comm.CommandText = "INSERT INTO navio (imo, nome, bandeira, dataConstrucao, dwt, tamanho, poroes, tipo) VALUES(@imo, @nome, @bandeira, @dataConstrucao, @dwt, @tamanho, @poroes, @tipo)"; comm.Parameters.AddWithValue("@imo", Convert.ToInt32(textBox1.Text)); comm.Parameters.AddWithValue("@nome", textBox2.Text); comm.Parameters.AddWithValue("@bandeira", comboBox1.Text); comm.Parameters.AddWithValue("@dataConstrucao", maskedTextBox1); comm.Parameters.AddWithValue("@dwt", Convert.ToInt32(textBox3.Text)); comm.Parameters.AddWithValue("@tamanho", Convert.ToDouble(textBox4.Text)); comm.Parameters.AddWithValue("@poroes", Convert.ToInt32(textBox5.Text)); comm.Parameters.AddWithValue("@tipo", comboBox2.Text); conn.Open(); comm.ExecuteNonQuery(); conn.Close(); faz diferença no endereço do banco eu ter um espaço: C:\Users\adm\Documents\Banco 2\siged.mdf vlw
-
Pessoal to com um problema, nunca usei essas duas ferramentas. to precisando fazer conexão com o banco pra salvar alguns dados vasculhei td na net e no forum e não to conseguindo fazer conexão, o codigo usado foi: SqlConnection conn = new SqlConnection(@"Data Source =.\SQLExpress; AttachDbFilename =C:\Users\adm\Documents\Banco\siged.mdf; Trusted_Connection =Yes; "); SqlCommand comm = new SqlCommand(); comm.Connection = conn; comm.CommandText = "INSERT INTO navio (imo, nome, bandeira, dataConstrucao, dwt, tamanho, poroes, tipo) VALUES(@imo, @nome, @bandeira, @dataConstrucao, @dwt, @tamanho, @poroes, @tipo)"; comm.Parameters.AddWithValue("@imo", Convert.ToInt32(textBox1.Text)); comm.Parameters.AddWithValue("@nome", textBox2.Text); comm.Parameters.AddWithValue("@bandeira", comboBox1.Text); comm.Parameters.AddWithValue("@dataConstrucao", maskedTextBox1); comm.Parameters.AddWithValue("@dwt", Convert.ToInt32(textBox3.Text)); comm.Parameters.AddWithValue("@tamanho", Convert.ToDouble(textBox4.Text)); comm.Parameters.AddWithValue("@poroes", Convert.ToInt32(textBox5.Text)); comm.Parameters.AddWithValue("@tipo", comboBox2.Text); conn.Open(); comm.ExecuteNonQuery(); conn.Close(); o erro ocorre no evento open: Erro de rede ou específico à instância ao estabelecer conexão com o SQL Server. O servidor não foi encontrado ou não estava acessível. Verifique se o nome da instância está correto e se o SQL Server está configurado para permitir conexões remotas. (provider: Interfaces de Rede SQL, error: 26 - Erro ao Localizar Servidor/Instância Especificada) se alguém tiver algum link ou tutorial pra me ajudar eu vou agradecer muito. vlw
-
AJUDA PARA PESQUISA ENTRE DATAS (PERIODO)VBA
pergunta respondeu ao cleitoncoelho de Renato Knupp em VBA
pesquise sobre a função DateDiff, ela retorna diferenças entre datas no formato que você quiser (ano, mês, dia, hora, minuto...).