�X�N�V����Excel�ɒ���t����̂ɖ𗧂�4�‚̃e�N�j�b�N�F�e�X�g�G�r�f���X�擾�������̔�Z�i��ҁj�i1/3 �y�[�W�j

�@�O�ҁuSelenium VBA���g���Ď����Ńu���E�U�[�𑀍삵�ăX�N�V����Excel�ɒ���t���Ă݂��v�ł́A�G�r�f���X�Ƃ��ăX�N���[���V���b�g�i�ȉ��A�X�N�V���j���B��Ӌ`��ASelenium VBA�̃C���X�g�[�����@�Ǝg�����A�X�N���[���V���b�g��������Excel�ɒ���t������@�ɂ‚��ĉ�������B

�@��҂ł́A�G�r�f���X�Ƃ��ăX�N�V�����B��A���ʕ��Ƃ��ăe�X�g�d�l����[�i���ɒ���t����ۂɖ𗧂A�ȉ���4�‚֗̕���Tips���Љ��B

• �摜�t�@�C�������[�N�V�[�g�ɒ���t����
• Excel 2013�̃��j���[����X�N�V���𒼂ɒ���t����
• �摜�T�C�Y���k������
• �w�肵�����ԂɃ}�N�������s����

�摜�t�@�C�������[�N�V�[�g�ɒ���t����

�@�O��Љ�����@�Œ���Excel�ɃX�N�V���𒣂�t������@�����邪�AWindows 7�^Windows Server 2008 R2�ŏ�Q�������̑���菇���L�^�ł���GUI�c�[���u���X�e�b�v�L�^�c�[���iPSR.EXE�j�v��O��Љ��Selenium VBA���g�킸�ɁuSelenium WebDriver�v�ȂǂŁA���s���ʂ̃X�N�V�����摜�t�@�C���Ƃ��ĕۑ����Ă���ꍇ�����邾�낤�B

�@��ʂ̃X�N�V���摜�t�@�C�����蓮�Œ���t���Ă����̂́A��Ԃ̊|�����ƂȂ̂ŁAExcel VBA�Ŏ������ł���Ɣ��Ɍ����I���B

�@����Tips�����s����ɂ́A�摜�t�@�C����C�ӂ̏ꏊ�ɒu���Ă����K�v�����邪�A����́uC\VBAImage�v�t�H���_�[�ɁA�摜��z�u���Ă���O��Ƃ���B�t�H���_�[�͓K�X�A�����W���Ăق����B

�@�}�N������������ɓ�����A�}1�̂悤�ɂȂ��Ă���Ƃ��悤�B

�}1�@�u�R���{�{�b�N�X�v��z�u���u�R���g���[���̏����ݒ�v����������

�@Excel���j���[�́m�J���n���m�}���n�ƑI�����āu�R���{�{�b�N�X�v��z�u����B���ɁA�uC\VBAImage�v�t�H���_�[�ɔz�u�����摜�����A�uU1:U10�v�ɓ��͂���B

�@�z�u�����u�R���{�{�b�N�X�v��I�����āA�}�E�X�̉E�N���b�N�ŕ\������郁�j���[����A�m�R���g���[���̏����ݒ�n��I������B�\��������ʂ���A�m���͔͈́n�ɉ摜������͂����uU1:U10�v�܂ł��w�肷��B���Ɂu�����N����Z���v�ɁA�uT2�v���w�肵�Ă����B�����ɂ́A�u�R���{�{�b�N�X�v����I�����ꂽ�C���f�b�N�X�ԍ����\�������B

�@���ɃZ���uT5�v��INDEX�֐����g���āA�u�R���{�{�b�N�X�v����I�����ꂽ�C���f�b�N�X�ԍ��ɊY������摜����\������BINDEX�֐��̏����͉��L�̒ʂ肾�B

�@�o�͈́p�ɂ́uU1:U10�v���w�肵�A�o�s�ԍ��p�ɂ̓Z���uT2�v�ɕ\�����ꂽ�u�R���{�{�b�N�X�v����I�����ꂽ�摜���̃C���f�b�N�X�ԍ����w�肷��B���L�̂悤�ȕ\�L�ɂȂ�B�֐�����͂���ꍇ�͐擪�ɕK���u=�v�Ɠ��͂���B

=INDEX(U1:U10,T2)

�@��������́A���ۂɃ}�N�����L�q���Ă݂悤�B�摜�t�@�C�������[�N�V�[�g�ɒ���t����ɂ́APictures�R���N�V������Insert���\�b�h���g�p����B

�@�܂��AVBE�iVisual Basic Editor�j�̃��j���[����A�m�}���n���m�W�����W���[���n�ƑI������B�v���W�F�N�g��Module1���lj������̂ŁAModule1���_�u���N���b�N���āA�\�������G�f�B�^�[��ʓ��Ƀ��X�g1�̃R�[�h���L�q����B

Option Explicit
Sub �摜�̕\��()
  Call �摜�̍폜
  Range("T6").Value = Range("T5").Value
  Range("B2").Select
  ActiveSheet.Pictures.Insert "C:\VBAImage\" & Range("T6").Value
End Sub

�@3�s�ڂł́A�摜���폜����u�摜�̍폜�v�v���V�[�W���i���X�g2�j���Ăэ���ł���B���̃v���V�[�W���͕ʂ̃v���V�[�W���Ƃ��ėp�ӂ��Ă���B

�@4�s�ڂł́A�Z���uT6�v�ɁA�Z���uT5�v�̒l��\�����Ă���B�Z���uT5�v�ɂ�INDEX�֐��̌v�Z���������Ă��邽�߁A�摜�����w�肷��ꍇ�ɂ́A���̃Z���uT5�v�͎g�p�ł��Ȃ��B�����ŁA�Z���uT5�v�̒l���A�Z���uT6�v�ɕ\�������āA�摜���ɂ́A���̃Z���uT6�v�̒l���w�肷��B

�@�Z���uB2�v��I�����āi6�s�ځj�A������������Ƃ��ĉ摜�𒣂�t���Ă���Pictures.Insert���\�b�h�ɁA�p�X�ƃZ���uT6�v�̒l��A�����Ďw�肷��i7�s�ځj�B����Łu�R���{�{�b�N�X�v���I�������摜�������\������Ă����B

Sub �摜�̍폜()
  Dim �͈� As Range
  Dim myShape As Variant
  Set �͈� = Range("B2")
  For Each myShape In ActiveSheet.Shapes
    If Not Intersect(Range(myShape.TopLeftCell, myShape.BottomRightCell), �͈�) Is Nothing Then
      myShape.Delete
    End If
  Next
End Sub

�@���̃R�[�h�̒��g�ɂ‚��ẮATips�u�I�[�g�V�F�C�v�̎�ނ�ݒ肵�ĕ\�������v�̃��X�g2�̉���ƑS�������ł��邽�߁A�ȒP�ɐ������Ă������B

�@���̃R�[�h�̓Z���uB2�v�ɂ��������摜���������ꍇ�́A���̉摜���폜���Ă���B�u�R���{�{�b�N�X�v��I�����āA�}�E�X�̉E�N���b�N�ŕ\������郁�j���[����A�u�}�N���̓o�^�v��I�����A���X�g1�̃}�N�����֘A�t����B

�@���s����Ɛ}2�̂悤�ɁA�u�R���{�{�b�N�X�v����I�����ꂽ�摜���A�Z���uB2�v��������Ƃ��ĕ\�������B

�}2�@�u�R���{�{�b�N�X�v����I�������摜���\�����ꂽ

�@�܂������Tips�ł́A������₷���悤��1���̉摜��I�����Ē���t����悤�ɂ��Ă��邪�A�A���Œ���t����ꍇ�́AInsert���\�b�h���t�@�C���̐��������s����悤�ɃA�����W����K�v������̂ŁA���ӂ��Ăق����B