sexta-feira, 26 de fevereiro de 2016

PowerPoint - Alterar a configuração de resolução de exportação JPG

Importante: Siga cuidadosamente as etapas nesta seção. Problemas sérios poderão ocorrer se você modificar o Registro incorretamente.Antes você modificá-lo, faça backup do registro para restauração em caso de ocorrerem problemas.


Por padrão, a resolução de exportação de um slide do PowerPoint que você deseja salvar como uma imagem é 96 pontos por polegada (dpi). Para alterar a resolução de exportação, siga estas etapas:
  1. Feche todos os programas baseados no Windows.
  2. Clique em Iniciar e, em seguida, clique em Executar.
  3. Na caixa Abrir , digite regedit e, em seguida, clique em OK.
  4. Localize uma das seguintes subchaves do registro, dependendo da versão do PowerPoint que você está usando:

    PowerPoint 2013
    HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\PowerPoint\Options
    PowerPoint 2010
    HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\PowerPoint\Options
    PowerPoint 2007
    HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\PowerPoint\Options
    PowerPoint 2003
    HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\PowerPoint\Options
  5. Clique na subchave de Opções , aponte para novo no menu Editar e, em seguida, clique em Valor DWORD.
  6. Digite ExportBitmapResolution e, em seguida, pressione Enter.
  7. Verifique se ExportBitmapResolution está selecionada e, em seguida, no menu Editar , clique em Modificar .
  8. Na caixa de diálogo Editar valor DWORD , clique em Decimal.
  9. Na caixa dados do valor , digite o valor da resolução como 300Ou, use os parâmetros na tabela a seguir.

    Valor decimalPixels de tela inteira (horizontal × vertical)Widescreen pixels (horizontal × vertical)Pontos por polegada (horizontal e vertical)
    50375 × 500667 × 37550 dpi
    96 (padrão)960 x 7201280 x 72096 dpi
    1001000 x 7501333 × 750100 PPP
    1501500 × 11252000 × 1125150 dpi
    2002000 × 15002667 × 1500200 dpi
    2502500 × 18753333 × 1875250 dpi
    3003000 × 22504000 × 2250300 dpi

    Observação: Consulte a seção limitações para obter mais informações quando você define esse valor.
  10. Clique em OK.
  11. No menu Arquivo , clique em Sair para sair do Editor do Registro.

terça-feira, 23 de fevereiro de 2016

Como usar mais de uma conta do Dropbox e Google Drive no Windows e Mac

Fonte: http://www.techtudo.com.br/dicas-e-tutoriais/noticia/2015/01/como-usar-mais-de-uma-conta-do-dropbox-e-google-drive-no-windows-e-mac.html

Dropbox e Google Drive são dois dos serviços de armazenamento em nuvem mais populares do mundo, o que quer dizer que muitos usuários tem mais de uma conta em cada. Mas, como fazê-las funcionar ao mesmo tempo em um mesmo computador? Veja o tutorial que o Techtudo preparou sobre como solucionar esse problema. 

Conheça os melhores serviços de armazenamento de arquivos na nuvem

Migrando arquivos do Google Driver para o Dropbox (Foto: Reprodução/André Sugai) (Foto: Migrando arquivos do Google Driver para o Dropbox (Foto: Reprodução/André Sugai))

Veja como colocar mais de uma  conta no Google Drive e Dropbox no Windows e Mac  (Foto: Reprodução/André Sugai)
A dica é usar o programa Odrive, que tem versões para Mac e Windows e permite não só configurar mais de uma conta ao mesmo tempo, mas também sincronizar diversos outros tipos de serviços, como Box e OneDrive, além de servidores, FTP e até o Facebook.

Passo 1. Baixe e instale Odrive para Windows ou Mac;

Passo 2. Avance as telas de boas-vindas até o final, clicando no botão “Open odrive folder”;
Abra a pasta do odrive (Foto: Reprodução/Paulo Alves)
Abra a pasta do odrive (Foto: Reprodução/Paulo Alves)

Passo 3. Clique na pasta que contém o nome do serviço que você deseja utilizar. Neste tutorial, iremos habilitar o acesso ao Dropbox;

Comece conectando uma de suas contas entre os serviços disponíveis (Foto: Reprodução/Paulo Alves)























Passo 4. Entre com e-mail e senha do Dropbox ou outro serviço escolhido;

Insira suas credenciais (Foto: Reprodução/Paulo Alves)
Insira suas credenciais (Foto: Reprodução/Paulo Alves)

Passo 5. Autorize o acesso dos arquivos pelo Odrive;

Permita que o odrive obtenha seus arquivos (Foto: Reprodução/Paulo Alves)
Permita que o odrive obtenha seus arquivos (Foto: Reprodução/Paulo Alves)

Passo 6. O Odrive irá listar em uma janela todos os ícones dos seus arquivos e pastas do Dropbox, ainda sem baixá-los localmente. Isso acontece porque o download só é feito quando um item é clicado, economizando espaço em disco;

Nenhum download é feito até que você precise dos arquivos (Foto: Reprodução/Paulo Alves)

Passo 7. Para adicionar uma nova conta do Dropbox, acesse o ícone permanente do Odrive. No Windows, ele fica próximo do botão de volume; no Mac, ele fica na barra superior.
Ao encontrá-lo, clique em “Add link” e escolha “Dropbox” na lista;

 Conecte quantas contas quiser e quantas vezes desejar (Foto: Reprodução/Paulo Alves)

Passo 8. Faça novamente os passos 4 a 6 para incluir outra conta, e repita o procedimento para incluir outras contas do Google Drive, OneDrive, Box, entre outras, quantas vezes quiser.
Pronto. Agora basta gerenciar seu espaço em disco para não lotá-lo de arquivos. Na verdade, a vantagem de usar o Odrive é justamente permitir uma gerência melhor sobre seus arquivos, já que tudo fica acessível e, ao mesmo tempo, armazenado só na nuvem. Aproveite essa dica para organizar melhor sua vida na nuvem.

segunda-feira, 22 de fevereiro de 2016

VB.net - Colocando MsgBox no centro do formulário

Amigos,
abaixo estou colocando o código para exibir a MsgBox no centro do formulário que a chamou.

Criando classe Centered_MessageBox

Imports System.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Public Class Centered_MessageBox
    Implements IDisposable
    Private mTries As Integer = 0
    Private mOwner As Form

    Public Sub New(owner As Form)
        mOwner = owner
        owner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
    End Sub

    Private Sub findDialog()
        ' Enumerate windows to find the message box
        If mTries < 0 Then
            Return
        End If
        Dim callback As New EnumThreadWndProc(AddressOf checkWindow)
        If EnumThreadWindows(GetCurrentThreadId(), callback, IntPtr.Zero) Then
            If System.Threading.Interlocked.Increment(mTries) < 10 Then
                mOwner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
            End If
        End If
    End Sub

    Private Function checkWindow(hWnd As IntPtr, lp As IntPtr) As Boolean
        ' Checks if <hWnd> is a dialog
        Dim sb As New StringBuilder(260)
        GetClassName(hWnd, sb, sb.Capacity)
        If sb.ToString() <> "#32770" Then
            Return True
        End If
        ' Got it
        Dim frmRect As New Rectangle(mOwner.Location, mOwner.Size)
        Dim dlgRect As RECT
        GetWindowRect(hWnd, dlgRect)
        MoveWindow(hWnd, frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, dlgRect.Right - dlgRect.Left, dlgRect.Bottom - dlgRect.Top, True)
        Return False
    End Function

    Public Sub Dispose() Implements IDisposable.Dispose
        mTries = -1
    End Sub

    ' P/Invoke declarations
    Private Delegate Function EnumThreadWndProc(hWnd As IntPtr, lp As IntPtr) As Boolean

    <DllImport("user32.dll")> _
    Private Shared Function EnumThreadWindows(tid As Integer, callback As EnumThreadWndProc, lp As IntPtr) As Boolean
    End Function

    <DllImport("kernel32.dll")> _
    Private Shared Function GetCurrentThreadId() As Integer
    End Function

    <DllImport("user32.dll")> _
    Private Shared Function GetClassName(hWnd As IntPtr, buffer As StringBuilder, buflen As Integer) As Integer
    End Function

    <DllImport("user32.dll")> _
    Private Shared Function GetWindowRect(hWnd As IntPtr, ByRef rc As RECT) As Boolean
    End Function

    <DllImport("user32.dll")> _
    Private Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, w As Integer, h As Integer, repaint As Boolean) As Boolean
    End Function

    Private Structure RECT
        Public Left As Integer
        Public Top As Integer
        Public Right As Integer
        Public Bottom As Integer
    End Structure
End Class


No formulário ou em um módulo crie o procedimento abaixo

    Private Sub MyMsgBox(ByVal pMsg, ByVal pTexto, ByVal pBotao, ByVal pIcon)
        Using New Centered_MessageBox(Me)
            MessageBox.Show(pMsg, pTexto, pBotao, pIcon)
        End Using
    End Sub

Para chamar chamar o novo MsgBox coloque o código abaixo dentro do formulário

MyMsgBox("Necessário inserir um usuário na tela de acesso", "Alteração de senha", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Baixar Ícones

Ótimo site para baixar ícones grátis para seu projeto.


http://icon-icons.com/pt/

Related Posts Plugin for WordPress, Blogger...